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5.  Support  Software  Design  Description 


5.1  Overview 

The  Q-80  Support  Software  is  a package  of  3 related,  independently  running 
programs  which  aid  in  the  development  and  checkout  of  the  Q-80.  The  three 
programs  are: 

■ The  Q-80  Microprogram  Assembler 

■ Tue  8080/8085  Macro  Assembler 

■ The  Q-80  Simulator 

The  Q-80  Microprogram  Assembler  translates  microprograms  specified  in  a 
register  transfer  language  into  the  bit  patterns  for  the  Q-80  Microprogram 
Control  Memory.  The  8080/8085  Macro  Assembler  is  an  INTEL  product 
designed  to  be  the  general  purpose,  commercially  available  assembler  for 
Intel’s  8080/8085  product  line.  Questron  has  adapted  this  assembler  to 
be  used  as  the  assembler  for  the  Q-80.  (This  adaptation  involved  no 
changes  to  the  assembler  itself.) 

The  Q-80  Simulator  simulates  the  Q-80  on  the  register  and  interface  level. 
Based  on  object  code  produced  by  the  8080/8085  Macro  Assembler  it 
produces  a diskette  file  and  a listing  which  represent  a complete  trace 
of  the  expected  behavior  of  the  Q-80  when  executing  the  same  object 
code.  The  diskette  file  can  be  used  in  automated  checkout  of  the  Q-80 
by  means  of  an  MDS800/Q-80  interface. 
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5.1.1  Q-80  Microprogram  Assembler 


5. 1.1.1  User’s  Reference 
Function 

The  Q-80  Microprogram  Assembler  translates  symbolic  microcode  into  binary 
microcode.  The  symbolic  language  accepted  by  the  Q-80  Microprogram  Assem- 
bler is  basically  a register  transfer  language.  Each  microword  is  specified  as 
a series  of  register  transfers,  called  phrases. 

The  process  of  translating  these  phrases  into  binary  microcode  is  complicated 
by  two  factors:  1)  in  many  cases  there  is  more  than  one  control  configur- 
ation that  will  cause  the  execution  of  a given  phrase,  and  2)  some  phrases 
are  incompatible  with  others  when  specified  in  the  same  microword.  Thus  it 
could  happen  that  two  phrases  in  a microword  are  apparently  incompatible. 

The  Q-80  Microprogram  Assembler  attempts  to  resolve  such  cases  and  will  flag 
an  incompatibility  only  if  all  possible  alternate  translations  have  also  resulted 
in  incompatibility  in  the  given  context. 

In  those  cases  where  more  than  one  translation  is  valid  the  user  has  the  option 
to  influence  the  assembler’s  choice  by  specifying  some  control  fields  explicitly. 
This  can  be  regarded  as  a lower  level  feature  of  the  language. 

The  Q-80  Microprogram  Assembler  supports  conditional  and  unconditional  branch- 
ing. Symbolic  labels  are  used. 

Input 

The  symbolic  microcode  is  read  from  an  ASCII  disk  file  named  :F1  :name.MIC, 
where  “name”  is  an  alphanumeric  string  of  1 to  6 characters  beginning  with  a 
letter.  The  format  of  the  file  is  compatible  with  the  output  format  of  the 
ISIS-II  Text  Editor. 

Date  File 

A file  called  :F0:DATE  is  read  by  Q-80  Microprogram  Assembler.  The  first 
1 1 bytes  in  this  file  are  assumed  to  be  the  current  date.  The  file  must  be 
edited  daily  by  the  user.  The  format  of  the  date  is  shown  in  the  following 
example:  12  FEB  1977. 


-2- 


Output 

The  binary  microcode  is  wrtten  into  a disk  file  named  :F1  tname.BIN  where 
“name”  is  the  same  as  the  “name”  in  the  symbolic  input  file  specified.  For 
example  if  the  input  file  is  :F1  .TEST2.MIC  then  the  binary  output  is  placed 
into  :F1:TEST2.BIN.  If  a file  by  that  name  already  exists  the  old  contents 
will  be  lost.  Each  microword  is  represented  by  8 bytes.  Bit  assignment  is 
as  shown  in  Figure  5.1-1. 


Listing 

Figure  5.1-2  shows  a short  sample  of  Q-80  Microprogram  Assembler  listing.  The 
symbolic  microcode  source  file  name  and  the  date  appear  under  the  page  header 
(1st  page  only).  After  the  symbol  table  listing  each  symbolic  microword  is 
listed  followed  by  values  of  the  various  control  bits  obtained  as  a result  of  the 
translation.  The  12  digit  hexadecimal  number  represents  the  last  6 bytes  of  the 
binary  micro  word.  The  next  available  address  used  and  the  number  of  errors 

encountered  are  printed  at  the  end  of  the  listing. 


Calling 

To  call  the  Q-80  Microprogram  Assembler  from  ISIS-II  (which  prompts  with  a-) 

enter:  MICROX:Fl:name.MIC 

on  the  keyboard. 


Symbolic  microprogram  structure 

The  symbolic  microprogram  is  considered  to  start  at  the  beginning  of  the  file 
and  ends  with  the  line: 


[END] 

All  blanks,  tab  characters  (control  I)  and  blank  lines  are  ignored  and  can 
therefore  be  freely  used  to  format  the  text.  Comments  begin  with  an  asterisk 
and  end  at  the  end  of  the  line.  Everything  following  a semicolon  up  io 
the  end  of  the  line  is  also  considered  a comment. 


* 


The  symbolic  microprogram  consists  of  a series  of  microword  specifications. 
Microword  specifications  are  separated  by  semicolons,  i.e.  each  ends  with  a 
semicolon. 

Each  microword  specification  begins  with  a label  (optional)  and  consists  of 
a series  of  phrases.  Each  phrase  ends  in  a comma,  except  the  last  in  the 
microword  which  ends  in  a semicolon.  Thus  the  general  outline  of  a symbolic 


microprogram  is: 

label:  phrase,  phrase phrase; 

label:  phrase,  phrase phrase; 


label:  phrase,  phrase, phrase; 

[END] 


Labels 

Microwords  can  be  labeled  in  one  of  three  ways. 

1)  No  label.  The  microword  is  never  branched  to  explicity.  It  can 
only  be  reached  by  executing  the  microword  preceding  it  in  the 
logical  address  space,  which  must  not  contain  an  explicit  GOTO-phrase. 

2)  Simple  label.  A label  of  1-8  characters  (first  character  must  be 
alphabetic,  remaining  characters  may  be  alphanumeric)  precedes  the 
microword.  The  label  is  followed  by  a colon.  This  microword 
may  be  branched  to  explicitly  and  unconditionally  from  anywhere 
in  the  microprogram. 

3)  Label  and  suffix.  Such  a label  consists  of  an  1-8  character  label 
(as  described  above)  followed  by  1,  3,  4,  or  7 zeros  and  ones 
enclosed  between  parentheses.  A colon  follows  the  closing  paran- 
thesis.  Such  a microword  can  be  branched  to  conditionally  or 
unconditionally  from  anywhere  in  the  microprogram.  Microwords 
with  identical  labels  but  different  suffixes  must  be  grouped  to- 
gether with  suffixes  in  ascending  order. 
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The  following  are  some  examples  of  labels. 


MPY3: 

ABCDEFGH: 

JMP(OIO): 

LONGLABLd  101011): 


Phrases 

Table  5.1-1  enumerates  all  the  phrases  recognized  by  the  Q-80  Micro- 
program Assembler.  They  fall  into  18  categories  as  indicated  in  the 
table.  No  more  than  one  phrase  from  each  category  may  appear  in  a microword. 
If  a microword  does  not  contain  any  phrase  from  a certain  category  then  the 
default  is  assumed,  unless  the  default  is  incompatible  with  another  phrase.  It  is 
advisable  to  specify  a phrase  from  each  category  unless  one  truly  does  not  care 
which  phrase  is  selected  by  the  assembler,  because  incompatibilities  with  defaults 
occur  frequently. 

Semantics 

Figure  5.1-3  shows  a functional  block  diagram  of  the  GPU  data  paths.  This  block 
diagram  is  not  an  accurate  reflection  of  the  physical  GPU  data  paths  but  it  has 
been  verified  to  be  functionally  equivalent  to  the  GPU  in  the  sense  that  given 
an  orginal  state  of  the  storage  elements  and  any  arbitrary  sequence  of  micro- 
commands  that  are  applied  to  the  GPU  input  pins,  the  block  diagram  and  the 
real  GPU  will  yield  the  same  state  in  all  storage  elements  and  on  all  output  pins 
after  each  microcommand.  Figure  5.1-4  shows  a functional  block  diagram  of  the 
Q-80  emulator. 

The  Q-80  Microprogram  Assembler  language  is  designed  on  the  basis  of  these  block 
diagrams.  Each  microword  represents  a set  of  “register”  transfers  scheduled  to 
occur  during  one  cycle.  A cycle  consists  of  the  application  of  a set  of  control 
signals  to  the  Q-80  emulator,  and  the  subsequent  issuing  of  a load  clock  pulse. 


-7- 


w 


ADDRESS  BUS  (A..-A  ) Figure  5.1-4  Q-80  Emulator  Block  Diagram 


Each  phrase  specifies  a register  transfer.  The  “registers”  in  these  register  transfers 
are  true  storage  elements  inside  or  outside  the  GPU  (e.g.  P2B),  GPU  inputs  (e.g.DI), 
GPU  outputs  (e.g.  DO),  pseudo  register  (e.g.  ALC)  or  control  signals  to  be  stored 
in  the  microprogram  control  memory  (e.g.  CO).  Two-way  pins,  namely  the  MX 
bits  are  treated  as  two  registers,  one  for  input  and  one  for  output  (e.g.  MXH1IN 
and  MXHIOUT). 


GOTO-phrases 

■ Absolute  GOTO-phrases 

■ GOTO  <000  + @> 

■ GOTO  <256  + @> 

■ GOTO  <512  + @> 

■ GOTO  <768  + @> 


These  phrases  cause  the  control  bit  settings: 
FS  = 1111 

and 


ADDR, 

= 0,  ADDRg 

= 0 

for 

000 

+ 

@ 

ADDR, 

= 0,  ADDRg 

= 1 

for 

216 

+ 

@ 

ADDR, 

= 1,  ADDRg 

= 0 

for 

512 

+ 

@ 

ADDR, 

= 1,  ADDRg 

= 1 

for 

768 

+ 

@ 

■ Unconditional  GOTO-phrases 

■ GOTO  label,  where  label  consists  of  1-8  alphanumeric 
characters,  first  character  alphabetic 

This  phrase  causes  the  following  control  bit  settings: 

ADDR  = 9 MSB  of  address 

!0000  if  LSB  of  address  is  0, 

■ 

000  i if  LSB  of  address  is  1,  where  address  is  the  value 

assigned  to  label. 
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■PHWp I 


■ GOTO  label  (suffix),  where  label  is  as  described  above,  and  suffix 

consists  of  1,3,4  or  7 zeros  and  ones. 

This  phrase  causes  the  following  control  bit  settings: 


ADDR  = 9 MSB  of  address 


FS  = 


0000  if  LSB  of  address  is  0 

0001  if  LSB  of  address  is  1 

where  address  is  the  value  assigned  to 
label  ORed  with  suffix. 


■ Conditional  GOTO-phrases 

■ GOTO  label  (flags),  where  label  is  as  described  above  and  flags 

is  one  of  S,  Z,  P,  HHI,  RHHI,  EOPCODE. 

This  phrase  causes  the  following  control  bit  settings: 

ADDR  = 9 MSB  of  address 


FS  = 


0010  if  flags  is  S 

0011  if  flags  is  Z 

0100  if  flags  is  P 

1000  if  flags  is  RHHI 

1001  if  flags  is  HHI 

1100  if  flags  is  EOPCODE 

where  address  is  the  value  assigned  to  label. 


REG  - phrases 


REG(n)  = ALC,  where  n is  a hexadecimal  digit  or  #.  This 
phrase  causes  the  control  bit  settings: 


■ REG(n)  = SHIFTER,  where  n is  a hexadecimal  digit  or  #. 
This  phrase  causes  the  control  bit  settings: 


if  n is  a hexa- 
decimal digit 


JR  = 0 
M2  = 0 
RS  = 1 


P1B  • phrases 


■ P1B  = REG(n)  where  n is  a hexadecimal  digit  or  #.  This  phrase 
causes  the  control  bit  settings: 


if  n is  a hexa- 
decimal digit 


{ 


R = n 
Si  » 1 
RS  = 0 


if  n is  # 


{ 


R = 0 
S,  = 1 
RS  = 1 


■ P1B  = @ 

This  phrase  causes  the  control  bit  settings  Sj  = 0 and  IM  = 1. 

In  addition  it  insures  that  M # 000. 

■ P1B  = 01 

This  phrase  causes  the  control  bit  settings  St  = 0 and  IM  = 0.  In 
addition  it  insures  that  M =£  000. 

P2B  = phrases 


■ P2B  = P2B 

This  phrase  causes  the  control  bit  setting: 

S,  = 0 
A = 01 
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e P2B  = REG(n)  where  (X  n <7  or  n is  #.  This  phrase  causes 
one  of  the  following  control  bit  settings,  depending  on  the  context: 
If  n is  0-7: 


/ T = n 

iSj  = 0 
A = 00 
RS  = 0 


or 


T = n 
S,  = 0 
A = 11 
RS  = 0 


If  n is  #. 


( T = 

o 

T = 

0 

T = 

0 

(T  = 

0 

) s,  = 

0 

Si 

= 1 

Si 

= 0 

or 

Si  = 

0 

or 

or 

N 

11 

) A = 

00 

A = 

01 

J 

A = 

10 

l A = 

( RS  = 

( 

RS 

= 1 

RS 

= 1 

IRS  = 

1 

■ P2B  = D1 

This  phrase  causes  one  of  the  following  control  bit  settings,  depending 
on  the  context: 


DO  - phrases 

■ DO  = OFF 

This  phrase  causes  the  control  bit  setting  DOE=0. 


■ DO  = P1B 

This  phrase  causes  the  control  bit  settings:  M=lll,  DOE  = 1 


■ DO  = P2B 

This  phrase  causes  the  control  bit  settings:  M=110.  DOE  = 1 


■ DO  = ALC 

This  phrase  causes  the  control  bit  settings:  DOE  = 1 and  insures 
that  M # 1 lx. 
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s*  ALC  = left  + right 

This  phrase  causes  the  control  bit  settings: 

i A,  = 0 

( Cl  = 00 

in  addition  to  those  specified  in  Table  5.1-2. 

■ ALC  = left  + right  + CO 

This  phrase  causes  the  control  bit  settings: 

j | A,  = 0 

( Cl  = 01 

in  addition  to  those  specified  in  Table  5.1-2. 




* Only  the  2 MSB  of  D are  stored  in  the  microprogram  control 


■ ALC  = left  + right  + COUT 

This  phrase  causes  the  control  bit  settings: 


in  addition  to  those  specified  in  Table  5.1-2. 


■ ALC  = left  + right  + .NOT.COUT 
This  phrase  causes  the  control  bit  settings: 


A,  = 0 
Cl  = 11 


in  addition  to  those  specified  in  Table  5.1-2. 


■ ALC  = left  - P2B  (equivalent  to  ALC  = left  + .NOT.P2B  + CO) 

i 

This  phrase  causes  the  control  bit  settings: 

Aj  = 0 

Cl  = 01 
D = 001 


■ ALC  = left  OR  right 

This  phrase  causes  the  control  bit  setting:  A 
specified  in  Table  5.1-2. 

■ ALC  = left  AND  right 

This  phrase  causes  the  control  bit  setting:  A 
specified  in  Table  5.1-2. 


SHIFTER  — phrase 
■ SHIFTER  = @ 

This  phrase  causes  the  control  bit  settings: 

IS  = 01 

Mj  = 0 

M0  = 0 
IM  = 1 


= 1 1 in  addition  to  those 


= 10  in  addition  to  those 


-16- 


■ SHIFTER  = DI 

This  phrase  causes  the  control  bit  settings: 


s = 

01 

M, 

= 0 

M0 

= 0 

IM 

= 0 

SHIFTER  = ALC(6-' 


These  phrases  cause  the  control  bit  settings: 


jM,  = 0 
j Mo  = 1 
and 

C = Oil*  for  W 0 
C = 010*  for  \ 1. 


The  C-bits  are  not  set  for  WMXLOIN.  C ¥ Olx*  is  guaranteed  (since  there 
are  no  other  phrases  that  set  C = Olx). 


0 

■ SHIFTER  = ( 1 \ 

I MXHOIN  \ 

These  phrases  cause  the  control 

jM,  « 1 

/M0  = 0 

and 

C = Oil*  for  OW 
C = 010*  for  1\ 

The  C-bits  are  not  set  for  MXHOINW.  C i=  Olx*  is  guaranteed  (since  there 
are  no  other  phrases  that  set  C to  those  values). 


ULC(7-1). 

bit  settings: 


* Only  the  two  LSB  of  C are  stored  in  the  microprogram  control 
memory.  C2  is  always  0. 
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■M 


100  f 

1 1 > ULC(7-2). 

MXHlimMXHOIN  \ 

These  phrases  cause  the  control  bit  settings: 

\Mi  = 1 

) Mo  = 1 
and 

C = Oil*  for  OOW 
C = 010*  for  11\\ 

The  C-bits  are  not  set  for  MXH1IN\\MXH0IN\  C =£  Olx*  is 
guaranteed  (since  there  are  no  other  phrases  that  say  C to  those 
values). 

MXLOOUT  - Phrases 
■ MXLOOUT  = ALC(O) 

This  phrase  causes  the  control  bit  setting: 

M2  = 0 

Mj  = 1. 

MXLIOUT  = Phrases 
■ MXLIOUT  = ALC  (1) 

This  phrase  causes  the  control  bit  setting  M = Oil. 


* Only  the  two  LSB  of  C are  stored  in  the  microprogram  control 
memory.  C2  is  always  0. 


I/O  - phrases 


Table  5.1-3  shows  the  effect  of  the  15  possible  I/O  phrases.  If  none 
is  present  the  I/O  field  in  the  microword  is  set  to  0000. 


Table  5.1-3  I/O  Phrases 


Phrase 

I/O  Field  Value 

I/O  = .NOT.MEMR 

0001 

I/O  = .NOT.MEMW 

0010 

I/O  = .NOT.IOR 

0011 

I/O  = .NOT.IOW 

0100 

I/O  = HLDA 

0101 

I/O  = WAIT 

01  10 

I/O  = INTES 

0111 

I/O  = .NOT.INTA.NOT.IFCH 

1000 

I/O  = HLDA.  WAIT 

1001 

I/O  = INTER 

1010 

I/O  = .NOT.MEMR.NOT.IFCH 

1011 

I/O  = .NOT.MEMR.NOT.STACK 

1100 

I/O  = .NOT.MEMW.NOT.STACK 

1101 

I/O  = El 

1110 

I/O  = DI 

mi 

GUA  — control  phrases 

Table  5.M  shows  the  effect  of  the  4 possible  GUA  - control  phrases. 
If  none  is  specified  GUA  = ENABLE(LE3)  is  assumed  as  a default. 


Table  5.1-4  GUA-control  Phrases 


Phrase 


GUA  Field  Value 


GUA  = ENABLE(CE) 
GUA  = ENABLE(LEl) 
GUA  = ENABLE(LE2) 
GUA  = ENABLE(LE3) 


00 

01 

10 

11 
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COUT  - phrases 


Table  5.1-5  shows  the  effect  of  the  4 possible  COUT  phrases.  If  none 
is  specified  COUT  = COUT  is  assumed  as  a default. 


Table  5.1-5  COUT  - Phrases 


Phrase 

SCY  - Field  Value 

COUT  = COUT 

00 

COUT  = GPUCOUT 

01 

COUT  = DO(7) 

10 

COUT  = DO(O) 

11 

CO  - Phrases 


■ CO  = GPUCOUT 

This  phrase  causes  the  control  bit  setting 

■ CO  = 0 

and  is  the  default  when  no  CO-phrase  is  specified. 

■ CO  = L2 

This  phrase  causes  the  control  bit  setting: 

■ CO  = 1 


MFLAGS  — phrases 


Table  5.1-6  shows  the  effect  of  the  4 possible  macro  flags  control 
phrases.  If  none  is  specified  MFLAGS  = DISABLE  is  assumed 
as  a default. 


Table  5.1-6  MFLAGS  - Phrases 


Phrase 

F - Field  Value 

MFLAGS  = DISABLE 

00 

MFLAGS  = ENABLE(OUT) 

01 

MFLAGS  = ENABLEf 

10 

MFLAGS  = ENABLE(ALL) 

11 
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NOLOAD  - phrase 


■ NOLOAD 

This  phrase  causes  the  control  bit  setting  M ~ 100. 

E - phrase 

■ E = x where  x is  0 or  1. 

This  phrase  causes  the  control  bit  setting: 

E = 0 or  E = 1 depending  on  which  was  specified. 

MXHOOUT  - phrase 

■ MXHOOUT  = ALC(7) 

This  phrase  causes  the  control  bit  setting  M = 001. 


MXH10UT  - phrases 
■ MXHIOUT  = OFL 

This  phrase  causes  the  control  bit  setting:  C = 01X*. 


* Only  the  two  LSB  of  C are  stored  in  the  microprogram  control 
memory.  C2  is  always  0. 
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Explicit  setting  of  control  bits. 

In  many  cases  it  is  possible  to  translate  a microword  in  more  than  one 
way.  In  those  cases  the  Q-80  Microprogram  Assembler  will  make  an 
arbitrary  choice.  In  order  to  enable  the  user  to  influence  the  choice, 
five  explicit  control-bit-setting  phrases  are  provided: 

A = x 
C - x 
D = x 
M = x 
S = x 

where  x is  a hexadecimal  digit.  These  phrases  set  the  respective  control 
bits  overriding  any  control  bit  settings  specifed  in  preceding  phrases  with- 
out producing  error  messages.  However,  subsequent  phrases  that  are  in- 
compatible with  the  explicit  setting  will  produce  error  messages. 


t 
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5. 1.1.2  Q-80  Microprogram  Assembler  Computer  Program  Documentation* 


Environment 

The  GPU  Microprogram  Assembler  in  written  in  PL/M-80  and  is  designed  to  run 
under  the  ISIS-II  operating  system  (PL/M-80  V3.0  and  ISIS-II  V2.2  are  Intel  pro- 
ducts). 


The  Q-80  Microprogram  Assembler  consists  of  3 separately  compiled  parts: 

- The  main  program  MICROX 

- Subroutine  PASS1 

- Subroutine  PASS2 


Each  of  these  uses  in  addition  to  the  features  of  PL/M-80,  a number  of  external 
library  routines  as  primitives  in  the  program.  A brief  functional  description  of 
these  routines  follows: 

OPEN  - This  subroutine  opens  a file.  Given  a pointer  to  the  filename  and 
an  access  code  (l=read,  2=write,  3=read  & write)  this  subroutine  returns  an 
index  into  the  Active  File  Table  (AFT)  to  be  used  when  accessing  the  file 
and  a status  word. 


Argument  1 
Argument  2 
Argument  3 
Argument  4 
Argument  5 


pointer  to  location  where  AFT  index  is  to  returned 
pointer  to  filename 
access  code 
unused,  always  0 

pointer  to  location  where  status  word  is  to  be  returned. 


This  subroutine  is  declared  in  lines  2-4  of  the  source  listing. 


CLOSE  - This  subroutine  closes  a file. 


Argument  1 * AFT  index  of  file 

Argument  2 = pointer  to  location  where  status  word  is  to  be  returned. 

This  subroutine  is  declared  in  lines  5-7  of  the  source  listing. 

READ  — This  subroutine  reads  from  a file.  Given  the  AFT  index  of  a file, 
a pointer  to  the  read  buffer  and  the  number  of  bytes  to  be  read,  this  sub- 
routine will  fill  the  buffer,  return  the  number  of  bytes  actually  read 
and  the  status  word. 


* Familiarity  with  the  Intel  ISIS-II  operating  system  and  PL/M-80  compiler  is 
assumed.  It  is  also  assumed  that  the  reader  has  read  the  previous  section 
describing  the  operation  and  use  of  the  Q-80  Microprogram  Assembler. 
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Argument  1 
Argument  2 
Argument  3 
Argument  4 

Argument  5 


AFT  index  of  file 

pointer  to  buffer 

number  of  bytes  to  be  read 

pointer  of  location  where  actual  number  of  bytes  read 
is  to  be  returned 

pointer  to  location  where  status  word  is  to  be  returned. 


This  subroutine  is  declared  in  lines  8-10  of  the  source  listing. 


WRITE  — This  subroutine  writes  into  a file.  Given  the  AFT  index  of  the  file, 
a pointer  to  the  write  buffer  and  the  number  of  bytes  to  be  written,  this  sub- 
routine will  write  the  buffer  contents  into  the  file  and  return  the  status  word. 


Argument  1 
Argument  2 
Argument  3 
Argument  4 


AFT  index  of  file 

pointer  to  buffer 

number  of  bytes  to  be  written 

pointer  to  location  where  status  word  is  to  be  returned. 


This  subroutine  is  declared  in  lins  11-13  of  the  source  listing. 


SEEK  - This  subroutine  allows  the  repositioning  of  the  file  pointer,  i.e.  facilitates 
skipping  around  in  the  file.  Many  modes  allow  a variety  of  ways  to  move  the 
file  pointer,  but  some  modes  do  not  work  correctly  (Intel  will  fix  in  next  release 
of  ISIS-II).  For  this  reason  only  two  modes  (modes  0 and  2)  are  used  in  this 
program.  In  mode  0 SEEK  returns  the  block  number  and  byte  number  where 
the  filepointer  is  pointing  (1  block  = 128  bytes).  In  mode  2 the  filepointer  is 
set  based  on  a blocknumber  — bytenumber  pair  supplied  as  arguments. 


Argument  1 
Argument  2 
Argument  3 
Argument  4 
Argument  5 


AFT  index  of  file 
mode  (0  or  2) 
pointer  to  blocknumber 
pointer  to  bytenumber 
pointer  to  status  word 


This  subroutine  is  declared  in  lines  14-16  of  the  source  listings. 


DELETE  — This  subroutine  deletes  a file. 

Argument  1 = AFT  index  of  file  to  be  deleted 

Argument  2 = pointer  to  status  word. 

This  subroutine  is  declared  in  lines  17-19  of  the  source  listing. 


-26- 


1 


ERROR  - This  subroutine  displays  a standard  error  message  on  the  CRT.  It  is  to 
be  used  when  an  abnormal  status  word  was  returned  by  another  subroutine. 

Argument  1 = error  number 

Argument  2 = pointer  to  status  word. 

This  subroutine  is  declared  in  lines  20-22  of  the  source  listing. 

EXIT  - This  subroutine  terminates  a program  and  returns  to  ISIS-II.  There  are  no 
arguments.  This  subroutine  is  declared  on  lines  23-24  of  the  source  listing. 

ALPHA  - Simplified  version  of  WRITE.  It  is  mostly  used  to  display  alphanumeric 
data  on  the  CRT  or  on  the  printer. 

Argument  1 = AFT  index  of  file 

Argument  2 = number  of  bytes  to  be  written 

Argument  3 = pointer  to  buffer. 

This  subroutine  is  declared  in  lines  25-27  of  the  source  listing 

BINARY  - Converts  1-8  least  significant  bits  in  a given  byte  to  ASCII  representation 
and  writes  those  characters  into  the  file  indicated  (mostly  CRT  or  LP). 

Argument  1 = AFT  index  of  file 

Argument  2 = number  of  bits  to  be  displayed 

Argument  3 = data  (1  byte). 

This  subroutine  is  declared  in  lines  28-30  of  the  source  listing. 

HEX  - Converts  the  contents  of  a buffer  to  its  hexadecimal  representation  in 
ASCII  and  writes  those  characters  into  the  file  indicated  (mostly  CRT  or  LP). 

Argument  1 = AFT  index  of  file 

Argument  2 = number  of  hexadecimal  digits  to  be  displayed 

Argument  3 = pointer  to  buffer. 

This  subroutine  is  declared  in  lines  31-33  of  the  source  listing. 

INTEG  — This  subroutine  converts  a byte  (considered  as  an  8 bit  2’s  complement 
interger  to  signed  decimal  in  ASCII  and  writes  those  characters  into  the  file  indi- 
cated (mostly  CRT  or  LP). 

Argument  1 = AFT  index  of  file 

Argument  2 = data  (1  byte). 

This  subroutine  is  declared  in  lines  34-36  of  the  source  listing. 
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INTEGD  - This  subroutine  converts  a two-byte  unsigned  binary  number  (type 
ADDRESS)  to  its  5-digit  decimal  equivalent  in  ASCII  and  writes  those  characters 
into  the  file  indicated  (mostly  CRT  or  LP). 

Argument  1 = AFT  index  of  file 

Argument  2 = data  (2  bytes) 

This  subroutine  is  declared  in  lines  37-39  of  the  source  listing. 

PAGE  — Sends  the  form-feed  character  (hexadecimal  OQ  to  the  file  indicated. 

If  the  file  is  the  printer,  the  paper  is  advanced  to  the  top  of  the  next  page. 

The  only  argument  is  the  AFT  index  of  the  file.  This  subroutine  is  declared 
on  lines  40-42  of  the  source  listing. 

PPAGE  — Like  PAGE,  except  the  vertical-tab  character  (hexadecimal  OB)  is  sent. 
The  Centronics  306  printer  equipped  with  a vertical  format  unit  (VFU)  can  be 
programmed  to  skip  in  response  to  this  character  to  either  the  first  or  second 
top  of  page,  such  that  the  face  of  first  page  folds  on  top  of  the  listing  (not 
the  back  of  the  first  page).  This  subroutine  is  declared  in  lines  43-45  of  the 
source  listing. 

SKIP  - Sends  a carriage-return  and  a line-feed  character  (0D0A)  to  the  file 
specified.  The  only  argument  is  the  AFT  index  of  the  file.  This  subroutine 
is  declared  in  lines  46-48  of  the  source  listing. 

SPACE  — This  subroutine  sends  a specified  number  of  blanks  to  the  file  indicated. 

Argument  1 = AFT  index  of  file 

Argument  2 = number  of  blanks. 

This  subroutine  is  declared  in  lines  49-51  of  the  source  listing. 

EQUAL  — This  function  compares  two  given  bit  strings  and  returns  the  value 
FF  if  they  are  equal,  or  00  if  they  are  not. 

Argument  1 = pointer  to  first  string 

Argument  2 = pointer  to  second  string 

Argument  3 = number  of  bytes  to  be  compared 

This  function  is  declared  in  lines  52-54  of  the  source  listing. 
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SETBIT  - This  subroutine  can  set  up  to  7 bits  in  a bit  string. 


Argument  1 
Argument  2 
Argument  3 
Argument  4 


pointer  to  string 
start-bit  number  (0-origin) 
number  of  bits  to  be  set 

data  (1  byte).  The  least  significant  bits  are  used 
to  change  the  bit  string. 


This  subroutine  is  declared  in  lines  55-57  of  the  source  listing. 


EQUBIT  - This  function  compares  a given  bit  string  to  a substring  of  a longer 
bit  string  and  returns  the  value  FF  if  they  are  equal,  or  00  if  they  are  not. 


Argument  1 
Argument  2 
Argument  3 
Argument  4 


pointer  to  long  bit  string 
start-bit  number  (0-origin) 
number  of  bits  to  be  compared 

short  bit  string  (1  byte,  number  of  least  significant  bits  to  be 
compared  is  indicated  by  argument  3). 


This  subroutine  is  declared  in  lines  58-60  of  the  source  listing. 


The  computer  program  description,  which  follows,  describes  a program  with  deep  nesting 
of  blocks  and  loops.  Accordingly,  the  discussion  begins  at  the  highest  level  and  pro- 
ceeds to  deeper  levels  of  nesting  and  at  the  same  time  to  levels  of  increasing  details. 
To  make  the  relationship  of  the  various  sections  that  follow  as  clear  as  possible,  the 
sections  are  numbered  like  the  Dewey  Decimal  System.  Thus  for  a section  numbered 
3.1.8,  further  details  can  be  found  in  secitons  3.1.8. 1,  3. 1.8.2,  . . . etc.,  To  find  the 
relationship  of  section  3.1.8  to  sections  3.1.1,  3.1.2,  . . .etc.,  read  section  3.1. 

5. 1.1. 2.1  The  Main  Program  MICROX  - The  outermost  block  of  the  M1CROX 
represents  the  global  environment.  It  contains: 


1.  declarations  of  external  global  procedures  (described  above,  lines  2-60) 

2.  declarations  of  global  variables  and  constants  (lines  61-69) 

3.  declarations  of  internal  global  procedures  (lines  70-96) 

4.  declarations  of  external  subroutines  PASSl  and  PASS2  (lines  97-100) 

5.  The  prologue  activities  block  (lines  101-167) 

6.  Calls  to  PASSl  and  PASS2  (lines  168-169). 


i 
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5.1.1 .2.1.1  Declaration  of  external  global  procedures 
These  procedures  were  described  above  in  detail. 

5. 1.1. 2. 1.2  Declaration  of  global  variables 
The  global  variables  fall  into  4 categories: 

■ AFT  indexes  for  the  source  input  file,  the  binary  output  file,  the  line 
printer,  the  keyboard  and  the  CRT.  (SI,  BO,  LP,  KB,  CRT). 

■ Special  character  constants  (CR,  LF,  TAB). 

■ Global  pointers  and  counters,  the  end-of-symbol-table  pointer 
(ENDSYMBTAB),  the  pointer  to  the  first  available  address  following 

the  end  of  the  microprogram  (FIRSTAVAILADDR),  the  error  count  (E). 

■ Paging  counters:  line  number  (LINENO)  and  page  number  (PAGENO). 

5.1 .1.2.1 .3  Declaration  of  internal  global  procedures 

There  are  two  global  internal  subroutines,  both  related  to  the  page-formatting  of  the 
output  listing:  HEADER  (lines  70-89)  and  EOL  (stands  for  end-of-line,  lines  90-96). 

B Subroutine  HEADER  has  one  parameter,  SW,  which  indicates  whether 
this  is  the  first  page  of  the  listing  (SW=1)  or  not  (SW=0).  Depending 
on  the  value  of  SW,  subroutine  PPAGE  or  PAGE  is  called  to  advance 
to  the  top  of  a new  page  (lines  72-74).  Then  a page  header  is 
printed,  as  shown  in  Figure  9.  Finally  LINENO  is  set  to  5 and 
PAGENO  is  incremented  (lines  87-88). 

■ Subroutine  EOL  is  called  from  throughout  the  program,  whenever  a line 
is  ended.  It  increments  LINENO  (line  91),  calls  subroutine  SKIP  which 
writes  a carriage-return  and  a line-feed  to  the  printer  (line  92),  and  if 
LINENO  > 61  it  calls  HEADER  (lines  93-95). 

5.1 .1.2.1 .4  Declaration  of  external  procedures  PASS  1 and  PASS  2. 

These  procedures  are  declared  in  lines  97-100.  Neither  of  these  subroutines  has 
any  arguments. 
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5. 1.1. 2. 1.5  Prologue  activities  block. 


Figure  5.1-5  shows  a flowchart  of  this  block.  The  following  local  variables  are 
declared  in  this  block: 

■ LINE,  an  array  of  256  bytes,  used  as  a read  buffer 

■ FN,  an  array  of  15  bytes,  used  as  a character  string  holding  the  source 
file  name. 

■ LENGTH  used  to  return  the  number  of  bytes  read  when  calling  READ. 

■ LINEPTR,  FNPTR  used  as  indexes  into  LINE  and  FN  respectively 

■ I,  used  as  a general  purpose  loop  counter 

■ STATUS,  ST  used  as  status  words  in  calls  to  READ,  OPEN,  CLOSE. 

■ DATEAFT,  used  to  hold  the  AFT  index  of  the  date  file 

■ DATE,  an  array  of  11  bytes,  used  to  hold  the  character  string  representing 
the  date. 


Execution  proceeds  as  follows.  The  remainder  of  the  command  line,  entered  on  the 
keyboard  when  M1CROX  was  called  from  ISIS-II,  is  read  into  LINE  (line  108).  This 
may  or  may  not  contain  the  filename,  n the  number  of  characters  read  (LENGTH) 
is  2 (i.e.  only  a CR-LF  was  read)  then  a prompt  has  to  be  sent  to  the  CRT  (line 
111)  and  the  keyboard  is  read  into  LINE  (line  112).  If  LENGTH=2  again,  EXIT 
is  called  terminating  the  program  (line  113).  In  all  other  cases,  LINE  contains  the 
filename  before  execution  of  line  111.  Lines  116-119  position  LINEPTR  to  point 
to  the  first  non-blank  character  in  LINE.  In  lines  120-125  the  filename  is  copied 
from  LINE  to  FN.  At  most  14  characters  are  copied  and  copying  stops  whenever 
a blank  or  CR  is  encountered.  Note  that  a legal  ISIS-II  filename  can  not  be  longer 
than  14  characters: 

:F1  :XXXXXX.XXX 

Next  blanks  are  inserted  at  the  trailing  end  of  FN  (at  least  one  blank,  lines  126-128). 
The  source  file  is  opened  in  line  129.  Bad  filenames  and  non-existent  files  are  de- 
tected, appropriate  error  messages  are  printed  and  EXIT  is  called  to  terminate  the  pro- 
gram (lines  130-141). 


R««d  ramalndar  of 
command  I In#  Into  LINE 


FIGURE  5.1-5  FLOWCHART  OF  PROLOGUE  ACTIVITIES  BLOCK 
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Next  the  lineprinter  file  is  opened  (line  142).  PAGENO  is  initialized  to  1 (line  143) 
and  HEADER  is  called  with  argument=l  (causes  a call  to  PPAGE),  then  the  filename 
(FN)  is  printed  under  the  page  header  Gines  144-147).  To  read  the  date  from  file 
:F0:DATE,  the  file  has  to  be  opened,  read  and  closed  (lines  148-150).  Then  the  date 
is  printed  on  the  same  line  where  the  filename  was  printed  across  the  page  Cine  154- 
156). 

Last  the  file  extension  has  to  be  changed  from  .MIC  to  .BIN  in  FN  (lines  157-165) 
and  the  binary  output  file  is  opened  (line  166). 

Subroutines  PASS1  and  PASS2  are  called,  once  each,  in  lines  168-169. 


5.1.1 .2.2  Subroutine  PASS1 

The  outermost  block,  enclosing  subroutine  PASS1  is  labelled  MICRO  1. 

This  block  links  PASS1  to  the  global  environment  by  means  of  declarations 
of  EXTERNAL  variables  and  procedures,  and  it  contains  the  code  for  sub- 
routine PASS1.  . 

The  block  MICRO  1 contains: 

1.  declarations  of  external  global  procedures  (lines  2-60) 

2.  declarations  of  external  global  variables  and  constants  (lines  61-67) 

3.  declarations  of  global  procedures  defined  in  the  main  program  MICROX 
(lines  68-72) 

4.  the  body  of  subroutine  PASS1  (lines  73-445) 

2.1  Declarations  of  external  global  procedures 

These  are  the  same  declaration  found  at  the  beginning  of  MICROX  and  are 
described  in  detail  at  the  beginning  of  this  chapter. 
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5. 1.1. 2.2.2  Declaration  of  external  variables  and  constants 

These  are  variables  and  constants  defined  in  the  main  program  MICROX.  They 
fall  into  4 categories: 

■ AFT  indexes  for  various  files  (SI,  BO,  LP,  KB,  CRT)  (line  61) 

■ Special  character  constants  (CR,  LF,  TAB)  (line  62) 

■ Global  pointers  and  counters: 

E - the  error  count  (line  63) 

ENDSYMBTAB  - pointer  to  the  end  of  the  symbol  table  (line  64) 
FIRSTAVAILADDR  - pointer  to  the  first  free  microword  following 

the  end  of  the  microprogram  (line  65) 

■ Paging  counters: 

LINfcNO  and  PAGENO  (lines  66-67) 

5. 1.1. 2.2.3  Declaration  of  global  procedures 

These  are  two  global  procedures,  HEADER  and  EOL,  which  are  defined  in  the 
main  program  MICROX  (lines  68-72). 

5. 1.1. 2.2.4  Subroutine  PASS1 

Subroutine  PASS1  has  no  parameters.  It  has  the  PUBLIC  attribute  because 
the  main  program  MICROX  calls  PASSl  as  an  external  subroutine. 

Subroutine  PASSl  contains  the  following: 

1.  declarations  of  variables  local  to  PASSl  (lines  74-83). 

2.  declaration  of  subroutines  local  to  PASSl  (lines  84-219) 

3.  initializations  (lines  220-224) 

4.  the  code  to  build  the  symbol  table  and  partially  produce  the  binary  output 
file  (lines  225-435). 
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5.1 .1 .2.2.4. 1 Declaration  of  variables  local  to  PASS1 
The  following  variables  are  declared  local  to  PASSl: 

■ BUFF,  an  array  of  256  bytes,  used  as  read  buffer  for  the  symbolic 
source  input  file. 

■ BUFFPTR,  used  as  index  to  the  character  string  BUFF 

■ CODE,  an  array  of  256  bytes,  used  to  hold  one  symbolic  microword 
after  blanks,  tabs,  comments,  etc.,  have  been  eliminated. 

■ CODEPTR,  used  as  index  to  the  character  string  CODE. 

■ LABL,  an  array  of  8 bytes,  used  to  hold  a label. 

■ SUFFIX,  used  to  hold  the  value  of  the  suffix. 

■ SUFFIXLENGTH,  used  to  hold  the  number  of  bits  in  SUFFIX  that 
really  make  up  the  suffix  for  the  label  of  the  current  microword. 

® SYMBTABPTR,  used  as  pointer  to  array  MEMORY  which  is  used  as 
the  symbol  table. 

« STATUS,  used  in  calls  to  SEEK. 

5.1.1 .2.2.4.2  Declaration  of  subroutines  local  to  PASS1 
The  following  subroutines  are  local  to  PASS1. 

■ BUFF  AD  V (lines  84-101), 

■ NF.WWORD  (lines  102-145), 

» EXTRACTLABEL  (lines  146-219). 

5.i  .1 .2.2.4.2.1  Subroutine  BUFF  AD  V 

The  subroutine  is  used  when  reading  text  from  the  input  buffer  BUFF,  one 
character  at  a time.  If  the  buffer  is  empty  it  is  refilled.  The  subroutine 
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increments  BUFFPTR  (line  86)  and  tests  if  BUFFPTR=256  (line  87).  If  it  is 
not,  control  returns  to  the  point  of  call.  If  BUFFPTR=256  then  BUFF  must 
be  refilled  (line  89)  and  BUFFPTR  must  be  reset  to  0 (line  99). 

To  prevent  infinite  loops,  when  symbolic  source  files  are  not  properly  terminated 
by  [END],  a test  is  made  on  the  number  of  characters  read  (local  variable 
NCHAR).  If  it  is  zero,  as  would  be  the  case  only  if  a source  file  lacked  proper 
termination,  the  program  terminates  by  calling  EXIT  (lines  92-98). 

S.l .1.2.24.2.2  Subroutine  NEWWORD 

This  subroutine  sets  up  the  environment  to  process  the  labels  of  a new  microword. 
Its  functions  are: 

- isolating  the  symbolic  source  text  for  one  microword, 

- compressing  blank,  tab,  CR,  LF  characters  and  comments  out  of  the  symbolic 
code  and  placing  it  into  array  CODE, 

- resetting  CODEPTR, 

- setting  the  flag  EOF  when  [END]  is  found. 

Subroutine  NEWWORD  contains  a subroutine,  CODEADV  (lines  104-107),  and  its 
own  body  of  code. 

5.1.1.2.2.4.2.2.1  Subroutine  CODEADV 

This  subroutine  advances  the  pointer  to  array  CODE,  CODEPTR,  by  one  (line  106). 
Microwords  longer  than  256  character  are  truncated.  (No  legal  microword  of  more 
than  256  character  is  possible  anyway). 

5.1.1.2.2.4.2.2.2  The  body  of  subroutine  NEWWORD 

A top  level  flowchart  of  this  subroutine  is  shown  in  Figure  5.1-6. 

Resetting  CODE  consists  of  filling  the  array  with  blanks  (lines  108-110)  and  setting 
CODEPTR  to  zero  (line  111). 

I 1 
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PRINT  NUMBER  OF  ERRORS 


CALL  EXIT 


FIGURE  5.1-6  FLOWCHART  OF  SUBROUTINE  NEWWORD 
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In  the  main  loop  (lines  113-143)  the  local  variable  CHAR  always  contains  the  latest 
character  from  BUFF.  Initially  it  must  not  be  a semicolon,  therefore  CHAR  is  set 
to  blank  (line  1 1 2). 

The  loop  is  governed  by  a DO  WHILE  CHAR  f statement  (line  113).  CHAR 
is  updated  from  BUFF(BUFFPTR)  (line  114)  and  BUFFPTR  is  advanced  by  a call 
to  BUFFADV  (line  115). 

The  series  of  conditionally  executed  statements,  based  on  the  value  of  CHAR,  begins 
by  a test  for  CHAR=CR  (line  116).  If  the  condition  is  satisfied,  and  if  the  next 
character  is  an  LF  then  BUFFPTR  is  advanced  passing  over  the  LF  (line  119). 

All  symbolic  code  following  an  asterisk  or  semicolon  is  treated  as  a comment. 
Following  the  test  for  CHAR  = V UR  CHAR  = this  is  done  in  lines  122-124. 

If  CHAR  is  a semicolon  (line  125)  the  CR-LF  pair  is  stepped  over  (lines  127-128). 
Last,  the  semicolon  is  entered  into  CODE  (lines  130-131). 

All  characters  other  than  CR,  TAB,  blank,  asterisk  or  semicolon  (line  133)  are  simply 
entered  into  CODE  (lines  135-136). 

If  CHAR  is  a ] the  end  of  the  symbolic  microcode  has  been  reached  and  the 
EOF  flag  must  be  set  (line  140). 

After  exit  from  the  main  loop,  CODEPTR  is  reset  to  zero  (line  144). 

5.1.1.2.2.4.2.3  Subroutine  EXTRACTLABEL 

Figure  5.1-7  shows  a flowchart  of  subroutine  EXTRACTLABEL. 

LABL.  is  set  to  all  blanks  in  line  148.  In  lines  149-152  the  pointer  L is  moved 
untii  the  colon  is  found  or  until  L reaches  the  value  18  (CODE  (17)  is  the  last  place 
where  the  colon  could  legally  be  located).  If  LOS  the  colon  has  been  located. 
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Figure  5.1-7  Flowchart  of  Subroutine  EXTRACT  LABEL 
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If  L = 18  and  CODE  (17)  is  not  a colon,  then  the  colon  was  not  found, 
meaning  that  the  microword  is  unlabelled.  In  this  case  SUFFIX  and  SUFFIXLENGTH 
must  both  be  set  to  0 (lines  153-158)  before  returning. 

Thus  processing  continues  only  for  the  cases  where  a colon  has  been  located. 

The  next  task  is  to  check  if  the  label  begins  with  an  alphabetic  character  (line  159). 
If  not,  an  error  message  is  printed  and  processing  continues  (lines  160-166). 

Next  all  the  characters  in  the  label  are  checked  to  see  if  they  are  alphanumeric 
(lines  167-180).  If  a non-alphanumeric  character  is  found,  a question  mark  is  sub- 
stituted and  an  error  message  is  printed.  In  all  cases  the  characters  making  up  the 
label  are  transfered  to  LABL. 

After  LABL  contains  the  ASCII  representation  of  the  label  (after  line  180),  the 
case  of  a label  without  suffix  has  to  be  detected.  If  a colon  follows  the  label 
(line  181)  then  SUFFIX  and  SUFFIXLENGTH  are  set  to  0 followed  by  return 
(lines  182-186). 

In  line  187  correct  location  of  the  opening  and  closing  parentheses  is  checked. 

If  they  are  not  where  expected  an  error  message  is  printed,  SUFFIX  and 
SUFFIXLENGTH  are  set  to  the  absurd  value  255  and  a return  is  executed  (lines 
188-197).  The  pointers  I and  L are  moved  to  step  over  the  parentheses  and 
now  point  to  the  first  and  last  digit  of  the  suffix  respectively  (lines  198-199). 

Next,  all  digits  in  the  suffix  are  tested  (lines  200-211)  and  if  any  are  found  to 
be  other  than  0 or  1 an  error  message  is  printed  and  the  (absurd)  value  255  is 
assigned  to  SUFFIX  and  SUFFIXLENGTH,  before  returning. 

Otherwise  SUFFIXLENGTH  is  determined  from  the  relative  position  of  pointers 
I and  L (line  212)  and  SUFFIX  is  computed  (lines  213-217).  Thereafter  a return 
is  executed  (line  218). 


5. 1.1. 2.2.4. 3 Initializations 


The  error  count  E is  initialized  to  0,  the  symbol  table  pointer  SYMBTABPTR 
is  initialized  to  0,  the  end-of-file  flag  EOF  is  set  false  (i.e.  0)  and  BUFFADV 
is  called  with  BUFFPTR  = 255,  causing  it  to  fill  BUFF.  (All  the  above  in 
lines  220-224). 

5.1.1 .2.2.4 .4  Code  to  build  symbol  table  and  partially  produce  binary  output  file 
This  part  of  PASS1  proceeds  in  the  following  major  steps: 

1.  Build  symbol  table  (lines  225-242) 

2.  Abort  if  any  errors  detected  (lines  243-250) 

3.  Check  correctness  of  symbol  table  (lines  251-295) 

4.  Abort  if  any  errors  detected  (lines  296-304) 

5.  Compress  symbol  table  (lines  305-318) 

6.  Assign  addresses  to  labels  (lines  319-369) 

7.  Allocate  space  and  write  address  on  disk  (lines  370-386) 

8.  Produce  symbol  table  listing  (lines  387-441) 

9.  Reopen  source  and  binary  files  for  PASS  2 (lines  442-443) 

5.1 .1.2 .2 .4 .4.1  Build  symbol  table 

The  loop  in  lines  226-241  is  executed  once  for  each  microword  until  the  EOF 
flag  becomes  true. 

Following  a previous  call  to  NEWWORD  (line  225  the  first  time,  line  240  at  all 

other  times),  EXTRACTLABEL  is  called,  which  updates  LABL,  SUFFIX  and  SUFFIXLENGTH 

according  to  the  label  of  the  current  microword. 


The  array  MEMORY  (which  is  limited  only  by  the  end  of  physical  memory)  is 

used  to  hold  the  symbol  table.  If  an  imminent  memory  overflow  is  detected 

(line  228),  then  the  assembly  is  aborted  after  printing  an  error  message  (lines  229-235). 
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Otherwise  LABL,  SUFFIXLENGTH,  and  SUFFIX  are  copied  into  the  symbol  table 
(lines  236-238),  and  the  symbol  table  index,  SYMBTABPTR,  is  incremented  by  12 
(the  length  of  a symbol  table  entry  is  12)  (line  239).  NEWWORD  is  called 
(line  240)  fetching  the  next  microword. 


After  exit  from  the  loop  ENDSYMBTAB  is  set  to  point  to  the  last  byte  used  for 
the  symbol  table  in  array  MEMORY  (line  242). 


5. 1.1. 2.2.4 .4 .2  Abort  if  any  errors  detected 

If  any  errors  have  been  detected  in  building  the  symbol  table,  the  assembly  is 
aborted  at  this  point  (lines  243-250).  Error  messages  were  printed  at  the  time 
the  errors  were  detected. 

5.1.1 .2.2.4 .4.3  Check  correctness  of  the  symbol  table 

The  following  aspects  of  symbol  table  correctness  are  checked: 

- suffix  length  is  0, 1,3,4,  or  7 

— length  of  blocks  agrees  with  suffix  length 

— suffix  length  consistent  throughout  each  block 

- suffixes  in  ascending  order  in  each  block 

These  tests  will  also  detect  absurd  values  of  suffixes  and  suffixlengths. 


The  loop  in  lines  257-295  is  executed  once  for  each  block  of  microwords 
and  terminates  when  the  end  of  the  symbol  table  is  reached. 

■ 

The  tests  for  suffixlength  being  0,1, 3, 4,  or  7 is  made  in  line  259.  If  any  other 
suffixlength  is  indicated  in  the  symbol  table,  an  error  message  will  be  printed 
(lines  260-266). 

The  length  of  the  block  is  computed  based  on  the  suffixlength  (lines  267-269). 

In  lines  270-274  the  true  length  of  the  block  is  determined  by  counting  the 
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number  of  consecutive  symbol  table  entries  with  identical  label  fields. 

If  these  two  values  disagress  (line  275)  then  an  error  message  is  printed  (lines 
276-283).  If  they  agree,  the  ascending  order  of  suffixes  is  checked  (lines  284-293) 
and  if  any  suffix  is  out  of  order  an  error  message  is  printed. 

5.1 .1 .2.2.4.4.4  Abort  if  any  errors  found 

If  any  errors  have  been  detected  during  the  checking  of  the  symbol  table,  the 
assembly  is  aborted  (lines  296-304). 

5. 1.1. 2.2.4 .4.5  Compress  symbol  table 

Once  the  block  structure  of  the  symbol  table  has  been  found  to  be  correct, 
there  is  no  further  reason  to  retain  one  entry  for  each  microword.  By  retaining 
only  one  entry  for  each  block,  all  searches  of  the  symbol  table  become  much  faster. 

Compression  of  the  symbol  table  is  done  by  copying  only  the  first  entry  from 
each  block  (lines  305-318).  ENDSYMBTAB  is  adjusted  for  the  shorter  symbol 
table. 

5.1 .1 .2.2.4.4.6  Assignment  of  addresses 

The  optimal  address  assignment  algorithm  is  used,  which  allocates  the  largest 
blocks  first.  This  leads  to  no  wasted  microprogram  control  memory  space  due 
to  fragmentation. 

Addresses  are  assigned  to  all  blocks  of  128  (lines  323-331),  followed  by  the  blocks 
of  16  (lines  332-340),  followed  by  the  blocks  of  8 (lines  341-349),  followed  by 
the  blocks  of  2 (lines  350-358),  followed  by  single  microwords  (lines  359-367). 
F1RSTAVAILADDR  is  set  to  point  after  the  last  address  used  (line  368). 

5.1 .1 .2.2.4.4.7  Allocate  space  and  write  address  or.  disk 

Since  the  entries  in  the  symbol  table  are  in  the  order  in  which  blocks  were 
encountered  in  the  source  code,  it  is  a simple  matter  to  sequentially  allocate 
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8 bytes  for  each  microword  on  the  disk  and  write  the  assigned  address  into 
the  first  two.  Then  PASS2  can  just  fill  in  the  remaining  6 bytes  as  it 
translates  the  microwords  in  the  order  of  their  occurence  in  the  source  code. 

Lines  370-386  implement  the  above  in  a straight  forward  manner. 

5.1.1.2.2.4.4.8  Symbol  table  listing 

The  code  in  lines  387-441  produces  the  symbol  table  listing.  It  consists  of  three 
columns,  57  lines  per  page  (53  on  the  first  page).  For  each  entry  the  label,  the 
suffixlength  and  the  address  are  shown. 

The  three-column  listing  is  implemented  by  means  of  three  pointers  into  the  symbol 
table  (11,12,13).  The  distance  between  II  and  12  as  well  as  between  12  and  13  is  57  symbol 
table  entries  (53  on  the  first  page).  If  13  or  both  12  and  13  point  past  the  end  of  the 
symbol  table,  then  nothing  is  printed  in  the  respective  columns.  When  II  points  past 
the  end  of  the  symbol  table  the  listing  is  complete. 

Initially  II  is  set  to  point  to  the  first  symbol  table  entry,  12  to  the  54-th,  13  to 
the  107-th  (lines  390-392)  and  the  line  counter  L is  set  to  4 (lines  393).  The 
first  page  is  4 lines  shorter  than  any  subsequent  page  because  the  header  contains 
the  file  name  and  the  date  in  addition  to  the  usual  header. 

The  loop  in  lines  394-440  is  executed  once  for  each  line  of  symbol  table  listing 
printed,  the  loop  is  terminated  when  11  points  past  the  end  of  the  symbol  table. 

The  code  in  lines  395-402,  404-413  and  415-424  prints  the  entries  in  column  1, 

2 and  3 respectively. 

When  13  or  both  12  and  13  point  past  the  end  of  the  symbol  table  then  column 

3 or  both  columns  2 and  3 are  left  blank.  This  is  implemented  by  the  tests 
in  lines  403  and  414. 

At  the  end  of  each  iteration,  after  a call  to  EOL  (line  425),  L is  incremented 
(line  426)  and  tested  (line  427).  If  L has  not  reached  the  value  57  yet,  then 
the  pointers  II,  12  and  13  are  incremented  by  12  (lines  434-438).  If  L = 52 
then  L is  reset  to  0(line  429),  II  is  set  to  point  to  the  symbol  table  entry 
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following  the  last  one  printed  in  column  3 (line  430),  12  is  set  to  point 
57  entries  past  II  (line  431)  and  13  is  set  to  point  57  entries  past  12  (line  432). 
(Thus,  unlike  the  first  page,  which  had  53  lines,  any  subsequent  pages  have  57 
lines). 

After  exit  from  the  loop  HEADER  is  called  causing  a page  advance  unless  L = 0 
(lines  440-441). 

5. 1.1. 2.2.4 .4 .9  Reopen  source  and  binary  files 

This  is  accomplished  by  two  calls  to  SEEK  (lines  443-444). 

5. 1.1. 2.3  Subroutine  PASS2 

The  outermost  block,  enclosing  subroutine  PASS2  is  labelled  MICR02.  This 
This  block  links  PASS2  to  the  global  environment  by  means  of  declarations 
of  EXTERNAL  variable  and  procedures,  and  it  contains  the  code  for  subroutine 
PASS  2. 

r 

The  block  MICR02  contains: 

1.  declarations  of  external  global  procedures  (lines  2-60) 

2.  declarations  of  external  global  variables  and  constants  (lines  61-67) 

3.  declarations  of  global  procedures  defined  in  the  main  program  MICROX 
(lines  68-72) 

4.  the  body  of  subroutine  PASS2  (lines  73-1898) 

5.1 .1.23.1  Declarations  of  external  global  procedures 

These  are  the  same  declaration  found  at  the  beginning  of  MICROX  and  are 
described  in  detail  at  the  beginning  of  this  chapter. 

15.1.1.2.3.2  Declaration  of  external  variables  and  constants 

These  are  variables  and  constants  defined  in  the  main  program  MICROX.  They 
fall  into  4 categories: 
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■ AFT  indexes  for  various  files  (SI,  BO,  LP,  KB,  CRT)  (line  61) 

■ Special  character  constants  (CR,  LF,  TAB)  (line  62) 


■ Global  pointers  and  counters: 

E - the  error  count  (line  63) 

ENDSYMBTAB  - pointer  to  the  end  of  the  symbol  table  (line  64) 
FIRSTAVAILADDR  - pointer  to  the  first  free  microword  following 
the  end  of  the  microprogram  (line  65) 

■ Paging  counters:  LINENO  and  PAGENO  (lines  66-67) 

5.1.1 .2.3.3  Declaration  of  global  procedures 

These  are  two  global  procedures,  HEADER  and  EOL,  which  are  defined  in  the 
main  program  MICROX  (lines  68-72) 

5. 1.1. 2.3.4  Subroutine  PASS2 

Subroutine  PASS!  has  no  parameters,  it  has  the  PUBLIC  attribute  because 
the  main  program  MICROX  calls  PASS2  as  an  external  procedure. 

Figure  5.1-8  shows  a top  level  flowchart  of  subroutine  PASS2.  The  symbolic 
input  file  is  read  line  by  line  until  a line  containing  a semicolon  is  encountered 
(i.e.  1 microword  is  read).  Blanks,  tabs  (control  I),  carriage  returns,  line  feeds 
and  comments  are  eliminated. 

The  phrase  translating  loop  is  entered  which  translates  one  phrase  per  iteration, 
until  a semicolon  is  encountered.  As  each  phrase  is  translated,  wherever  no 
alternate  translations  are  possible,  the  respective  control  bits  are  set  in  the 
microword  buffer.  Where  more  than  one  translation  is  possible,  one  of  a set  of 
flags  is  set  and  the  final  resolution  of  the  control  bit  setting  to  be  chosen 
is  delayed  until  all  phrases  of  the  microword  have  been  examined. 
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Thus  after  the  semicolon  is  encountered  these  delayed  resolutions  have  to  be  made. 
Thereafter  the  control  bit  settings  are  printed  on  the  output  listing  and  the  micro- 
word  buffer  is  output  to  the  binary  output  file. 

From  a computer  program  organization  point  of  view  the  microcode  translation 
block  consists  of  the  following: 

1.  declarations  for  variables  local  to  PASS  2 (lines  74-89) 

2.  declarations  for  procedures  internal  to  PASS2 


■ 

BUFFADV 

(lines  90-103) 

■ 

NEWWORD 

(lines  104-247) 

■ 

NEWPHRASE 

(lines  248-284) 

■ 

IDENTIFY 

(lines  285-398) 

■ 

ASCII2BIN 

(lines  399-416) 

■ 

PRINTROUTINE 

(lines  417-516) 

3. 

initializations 

(lines  517-520) 

4. 

the 

microcode  translation  loop 

(lines  521-1897) 

5.1.1.2.3.4.1  Declaration  of  variables  local  to  PASS2 
The  following  variables  are  declared  in  this  block: 

■ BUFF,  an  array  of  256  bytes,  used  as  read  buffer  for  the  symbolic 
source  input  file, 

■ LINE,  an  array  of  80  bytes,  used  as  print  buffer  for  the  output  listing, 

■ CODE,  an  array  of  256  bytes,  used  to  hold  one  symbolic  microword 
after  blanks,  tabs,  comments,  etc.  are  eliminated, 

■ PHRASE,  an  array  of  33  bytes,  used  to  hold  one  phrase, 

■ ADDR,  a two-byte  variable,  used  to  hold  the  microword  address, 

■ BUFFPTR,  CODEPTR,  used  to  index  the  character  strings  BUFF  and 
CODE,  respectively, 
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■ P1BDIPHRASEPRESENT  used  as  delayed  resolution  flag  to  indicate  the 
presence  of  the  phrase  P1B=DI, 

■ P2BREGPHRASEPRESENT  used  as  delayed  resolution  flag  to  indicate 
the  presence  of  the  phrase  P2B=REG(t), 

■ DOALCPHRASEPRESENT  used  as  delayed  resolution  flag  to  indicate 
the  presence  of  the  phrase  DO=ALC, 

■ NOT  ADI  used  as  delayed  resolution  flag  where  A £ 01  is  required, 

■ I used  as  a general  purpose  temporary  variable  (e.g.  loop  counter), 

■ PHVECT,  an  array  of  18  bytes,  used  to  flag  the  presence  of  a phrase 
of  a certain  type  (see  comment  in  source  listing  line  86), 

■ TYPE  used  to  indicate  type  of  phrase  being  processed,  also  index  for 
array  PHVECT, 

■ FIELD,  an  array  of  22  bytes,  used  to  indicate  whether  control  bits  in 
the  microword  buffer  have  been  set  by  previous  phrases  or  owe  their 
value  to  the  default  (see  comment  in  source  listing  line  87). 

■ MWORD,  an  array  of  6 bytes,  used  as  the  microword  buffer,  also  output 
buffer  to  binary  output  file, 

■ TBL,  an  array  of  256  bytes,  used  in  the  delayed  resolution  of  control 
bits  A and  Si  (see  comment  in  source  listing  line  89). 

5.1 .1 .2.3 .4 .2  Procedures  internal  to  PASS2 

The  6 procedures  internal  to  PASS  2 are  described  individually  below. 

5.1.1 .2.3.4.2.1  Subroutine  BUFFADV 

This  subroutine  is  used  when  reading  text  from  the  input  buffer  BUFF,  one 
character  at  a time.  If  the  buffer  is  empty,  it  is  refilled.  The  subroutine 
increments  BUFFPTR  (line  92)  and  tests  if  BUFFPTR=256  (line  93).  If  it 
is  not,  control  returns  to  the  point  of  call.  If  BUFFPTR=256  then  BUFF 
must  be  refilled  (line  95)  and  BUFFPTR  must  be  reset  to  0 (line  101). 


49- 


To  prevent  infinite  loops,  when  symbolic  source  files  are  not  properly  terminated  by 
[END],  a test  is  made  on  the  number  of  characters  read  (local  variable  NCHAR). 

If  it  is  zero,  as  would  be  the  case  only  if  a source  file  lacked  proper  termination, 
the  program  termiantes  by  calling  EXIT  (lines  96-100). 

5. 1.1. 2.3.4 .2.2  Subroutine  NEWWORD 

This  subroutine  sets  up  the  environment  to  process  a new  microword.  Its  functions 
are: 

- isolating  the  symbolic  source  text  for  one  microword, 

- printing  the  lines  as  they  are  read, 

- compressing  blank,  tab,  CR,  LF  characters  and  comments  out  of  the  symbolic 
code  and  placing  it  into  array  CODE, 

- resetting  CODEPTR,  PHVECT  and  FIELD, 

- initializing  MWORD  to  the  default  value, 

- resetting  of  all  delayed  resolution  flags, 

- initializing  PHRASE(O)  to  any  value  other  than 

From  a computer  program  organization  point  of  view  subroutine  NEWWORD 
contains  3 subroutines: 

■ LINEOUT  (lines  108-116) 

■ LINE  AD  V (lines  117-121) 

■ CODEADV  (lines  122-134) 

and  its  own  body  of  code  (lines  135-247). 

5.1.1.2.3.4.2.2.1  Subroutines  internal  to  subroutine  NEWWORD 

5.1 .1 .2.3.4 .2.2.1 .1  Subroutine  LINEOUT 

This  subroutine  outputs  a line  to  the  lineprinter  and  clean  the  buffer. 

If  array  LINE  contains  at  least  1 character  it  is  output  by  means  of  a call 
to  ALPHA  (lines  109-110).  The  line  is  ended  by  calling  EOL  (line  111). 
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LINE  is  set  to  all  blanks  (lines  112-114)  and  LINEPTR  is  reset  to  0 (line  115). 

5. 1.1 .2.3.4 .2.2. 1.2  Subroutine  CODEADV 

This  subroutine  advances  the  pointer  to  array  CODE,  CODEPTR,  by  one  (line  123). 
Microwords  longer  than  256  characters  cause  a terminal  error  to  be  flagged. 

(No  legal  microword  of  more  than  256  characters  is  possible  anyway).  In  that 
case  the  program  is  terminated  abnormally  (lines  119-133). 

5.1.1.2.3.4.2.2.2  The  body  of  subroutine  NEWWORD 

A top  level  flowchart  of  this  subroutine  is  shown  in  Figure  5.1-9. 

Resetting  CODE  and  LINE  consists  of  filling  both  arrays  with  blanks  (lines  135-137) 
and  setting  CODEPTR  and  LINEPTR  to  zero  (lines  138-142). 

In  the  main  loop  (lines  144-218)  the  local  variable  CHAR  always  contains  the 
latest  character  from  BUFF.  Initially  it  must  not  be  a semicolon,  therefore  CHAR 
is  set  to  blank  (line  143). 

The  loop  is  governed  by  a DO  WHILE  CHAR  f statement  (line  144).  CHAR 
is  updated  from  BUFF(BUFFPTR)  (line  145)  and  BUFFPTR  is  advanced  by  a call 
to  BUFFADV  (line  146). 


The  series  of  conditionally  executed  statements,  based  on  the  value  of  CHAR,  begins 
by  a test  for  CHAR=CR  (line  147).  If  the  condition  is  satisfied,  LINE  is  printed 
by  means  of  a call  to  LINEOUT  (line  149)  and  if  the  next  character  is  an  LF 
then  BUFFPTR  is  advanced  passing  over  the  LF  (line  150). 


The  next  test  is  for  CHAR=TAB.  Tab  characters  cause  LINE  to  be  padded  with 
blanks  until  the  next  position  that  is  a multiple  of  8 is  reached,  as  if  the  tab 

stops  where  set  at  8,16,24 8n,  . . . This  is  accomplished  by  the  code 

in  iines  155-159. 
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Figure  5.1-9  Flowchart  of  subroutine  NEWWORD. 
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Next,  if  CHAR  is  a blank,  LINEPTR  is  advanced  by  a call  to  LINEADV  (line  100). 


All  symbolic  code  following  an  asterisk  or  semicolon  is  treated  as  a comment. 

Following  the  test  for  CHAR  = OR  CHAR  = this  is  done  in  lines 
164-178.  The  code  in  lines  170-176  handles  tabs  embedded  in  comments.  The 
comment  is  transfered  only  to  LINE,  not  to  CODE.  Thus  it  is  printed  in  the 
listing  but  is  ignored  by  the  translation. 

If  CHAR  is  a semicolon  (line  179),  LINE  is  printed  (any  comments  following  it, 
having  been  transfered  to  LINE  previously)  and  the  CR-LF  pair  is  stepped  over 
(lines  181-183).  Last,  the  semicolon  is  entered  into  CODE  (lines  186-187). 

All  characters  othem  than  CR,  TAB,  blank,  asterisk  or  semicolon  (line  188)  are 
simply  entered  into  both  LINE  and  CODE  (lines  190-193). 

If  CHAR  is  a ] the  end  of  the  symbolic  microcode  has  been  reached  and  the 
program  has  to  proceed  to  normal  termination  (line  194).  The  next  available 
address  is  printed  on  the  listing  (lines  196-203)  and  the  number  of  errors  is  printed  and 
displayed  on  the  CRT  (lines  204-215).  The  program  terminates  by  calling  EXIT 
(line  216). 

After  exit  from  the  main  loop,  CODEPTR  is  reset  to  zero  (line  219),  PHVECT  is 
set  to  all  zeros  (lines  220-222),  FIELD  is  set  to  all  zeros  (lines  223-225),  MWORD 
is  set  to  the  default  value  (lines  226-241)  the  delayed  resolution  flags  are  all  set  to 
0 (false)  (lines  242-245),  and  PHRASE  (0)  is  set  to  a value  other  than  a semi- 
colon (arbitiarily  it  is  set  to  ’9’).  Control  returns  to  the  point  following  the  point 
of  call  from  line  247. 

5.1.1 .2.3.4 .2.3  Subroutine  NEWPHRASE 

Figure  5.1-10  shows  a flowchart  of  subroutine  NEWPHRASE.  This  subroutine  transfers 
the  next  phrase  from  CODE  to  PHRASE.  If  the  character  CODEPTR  is  pointing 
to  in  CODE  is  a semicolon,  then  PHRASE  (0)  = is  returned  (lines  251-254). 
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PHRASE  is  set  to  all  blanks  (lines  255).  If  the  character  CODEPTR  is  pointing 
to  in  CODE  is  a comma.  CODEPTR  is  incremented  to  step  over  the  comma 
(line  256).  Next,  up  to  33  characters  are  copied  from  CODE  to  PHRASE,  until 
a comma  or  semicolon  is  encountered  (lines  259-271).  Since  no  legal  phrase 
can  be  longer  than  32  characters,  if  33  have  been  copied,  there  is  an  error.  In 
that  case  PHRASE  (0)  is  set  to  blank  and  CODEPTR  is  advanced  to  the  nearest 
comma  or  semicolon  (lines  279-282).  At  the  end  of  the  subroutine  (line  284) 
control  returns  to  the  point  following  the  point  of  call. 


5.1.1.2.3.4.2.4  Subroutine  IDENTIFY 

This  subroutine  sets  the  variable  TYPE  according  to  the  contents  of  the  array 
PHRASE.  The  first  few  characters  of  PHRASE  are  examined  and  if  the  type 
of  phrase  contained  in  PHRASE  is  recognized,  then  TYPE  is  assigned  a value 
in  the  range  0 to  17  (lines  286-375).  If  PHRASE(O)  is  a blank,  the  implication 
is  that  a phrase  longer  than  32  characters  was  encountered,  and  TYPE  is  set 
to  18  (lines  376-380).  If  PHRASE(O)  is  a semicolon,  it  means  that  no  further 
phrases  are  to  be  processed  in  this  microword,  and  TYPE  is  set  to  19  (lines  381- 
385).  If  none  of  the  above,  then  there  is  an  error  and  the  phrase  can  not  be 
recognized.  TYPE  is  set  to  20  (line  386). 

If  the  phrase  is  a valid  recognizable  phrase  (i.e.  TYPE  < 18)  then  PHVECT(TYPE) 
is  checked  to  see  if  another  phrase  of  this  type  has  already  occured  in  this  micro- 
word  (lines  387-388).  If  yes,  an  error  message  is  printed  and  TYPE  is  set  to  18, 
indicating  error  (lines  389-395).  Finally  for  valid  recognizable  phrases  (i.e.  TYPE 
< 18)  PHVECT(TYPE)  is  set  to  TRUE  (i.e.  FF). 

5.1.1 .2.3.4.2.5  ASCII2BIN  Function 

This  function  takes  one  byte,  containing  the  ASCII  representation  of  a hexadecimal 
digit,  as  an  argument  and  returns  a 2-byte  value.  The  most  significant  byte  is  0 
if  the  argument  represents  an  ASCII  hexadecimal  digit,  FF  otherwise.  The  least 
significant  byte  contains  the  binary  equivalent  of  the  hexadecimal  digit. 


First  the  argument,  DIGIT,  is  tested  to  see  if  it  is  a hexadecimal  digit  (line  403). 

If  the  test  condition  is  satisfied,  the  conversion  is  performed  and  the  most 
significant  half  of  the  return  value  is  set  to  0 (lines  405-410).  Otherwise  the 
return  value  is  set  to  FF00  (lines  411-414). 

5.1.1.2.3.4.2.6  Subroutine  PRINTROUTTNE 

This  subroutine  outputs  the  microword  buffer,  MWORD,  to  the  binary  output 
file,  prints  the  control  bits  in  the  format  shown  in  Figure  5.1-11  and  increments 
the  address  counter  ADDR. 

The  greater  part  of  this  subroutine  is  taken  up  by  the  formatting  of  the  printed 
output.  A description  of  these  formatting  operations  is  not  given  here,  because 
the  code  is  very  straightforward  and  constitutes  a simpler  documentation  then  a 
verbal  description  would. 

The  output  to  the  binary  file  is  done  by  means  of  subroutine  ALPHA  (line  419). 

If  the  RS-bit  (bit  4 of  the  microword)  is  set  then  X is  printed  as  the  value 
of  both  R and  T. 

5.1.1.2.3.4.3  Initializations  at  Entry  into  PASS2 

The  global  variables  ADDR  and  E are  initializated  to  zero  (lines  517-518).  BUFF 
and  BUFFPTR  are  initialized  by  setting  BUFFPTR  to  255,  indicating  BUFFER 
empty,  and  calling  BUFFADV  (lines  519-520). 

5.1 .1 .2. 3.4.4  The  Microcode  Translation  Loop 

This  loop  encompasses  the  remainder  of  the  program  (lines  521-1893)  and  is  executed 
once  for  each  microword.  Exit  from  the  loop  occurs  when  the  program  terminates 

in  subroutine  NEWWORD,  which  is  called  once  in  each  iteration  (review  Figure  5.1-8). 

From  a computer  program  organization  point  of  view,  this  loop  contains: 

■ A call  to  subroutine  NEWWORD,  to  read  a microword  (lines  252); 
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■ Phrase  translation  loop  (lines  523-1804); 

■ Delayed  resolution  of  control  bits  (lines  1805-1891); 

■ A call  to  PRINTROUTINE  (line  1892). 

5. 1.1. 2.3.4 .4.1  Call  to  Subroutine  NEWWORD 

One  microword  is  read  from  the  symbolic  source  input  stream  by  means  of  a 
call  to  subroutine  NEWWORD  (line  522).  If  [END]  or  the  end  of  file  is 
encountered,  the  program  is  terminated  from  subroutine  NEWWORD  without 
returning  to  the  point  following  the  point  of  call. 

5.1 .1 .2.3 .4 .4 .2  Phrase  Translation  Loop 

This  loop  is  executed  once  for  each  phrase  in  the  microword.  It  is  terminated 
when  the  semicolon  at  the  end  of  the  microword  is  encountered.  A phrase 
is  read  (line  524)  and  its  type  is  established  (line  525).  The  remainder  of  the 
loop  is  taken  up  be  a DO  CASE  decision  construct  based  on  the  value  of  TYPE 
(lines  526-1803). 

5.1 .1 .2.3.4 .4 .2.0  The  Case  TYPE=0:  Translation  of  GOTO-phrases 

The  block  in  lines  527-754  translates  GOTO-phrases.  There  are  the  following 
types  of  GOTO-phrases; 

■ GOTO  <ddd+  @> 

■ GOTO  label 

■ GOTO  labetisuffix) 

■ GOTO  labelf flags) 

ddd  is  one  of  000,256,512  or  768.  Label  consists  of  1-8  alphanueric  characters 
beginning  with  ar.  alphabetic  character.  Suffix  is  a group  of  1,3,4  or  7 binary 
digits  (0-s  or  1-s).  Flags  is  one  of  S,Z,P,HHI.RHHI,  or  EOPCODE. 

Phrases  of  the  type  GOTO  <ddd  + @>  are  translated  in  lines  532-562.  The 

FS-bits  are  set  to  1111  (lines  536,543,550,557)  and  the  two  most  significant  bits  of 
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the  ADDR-field  are  set  to  00  (line  535)  for  ddd  = 000,  01  (line  542)  for 
ddd  = 256,  10  (line  549)  for  ddd  = 512,  or  11  (line  556)  for  ddd  = 768. 

If  one  of  these  4 phrases  has  been  recognized  and  translated  a branch  to  END0 
is  taken  (lines  539,546,553,560)  bypassing  the  remainder  of  the  block. 

The  remaining  3 types  of  GOTO-phrases  all  have  label  after  the  string  ‘GOTO’. 

Tire  length  of  the  label  is  established  in  lines  564-567  and  if  the  label  is  longer 
than  8 characters  an  error  message  is  printed  (lines  571-572)  and  processing  of 
the  phrase  is  terminated  by  branching  to  END0  (line  573). 

Next  it  is  tested  whether  the  first  character  is  alphabetic  (line  575).  If  it  is  not, 
an  error  message  is  printed  (lines  578-579)  and  the  processing  of  the  phrase  is 
terminated  by  branching  to  END0  (line  580). 

If  the  first  character  is  alphabetic,  it  is  copied  into  the  first  byte  of  the  local 
array  LABL  (line  582). 

The  remaining  characters  in  label  are  checked  for  being  alphanumeric  and  copied 
into  array  LABL  in  lines  583-593.  If  any  non-alphanumeric  chacter  should  be 
encountered,  an  error  message  will  be  printed  (lines  588-589)  and  the  processing 
of  the  phrase  will  be  terminated  by  branching  to  END0  (line  590). 

In  lines  594-597,  the  symbol  table  (array  MEMORY)  is  searched  for  the  entry 
corresponding  to  the  contents  of  LABL.  If  none  is  found  an  error  message 
is  printed  and  the  processing  of  the  phrase  is  terminated  by  branching  to 
END0  (lines  598-604). 

If  the  symbol  table  entry  corresponding  to  LABL  is  located,  the  suffixlength  and 
address  are  copied  from  the  symbol  table  to  the  local  variables  SUFFIXLENGTH 
and  ADDR. 
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If  SUFFIXLENGTH  is  zero  and  there  is  a suffix  or  flags  present  in  the  phrase, 
an  error  message  is  printed  and  the  processing  of  the  phrase  is  terminated  by 
branching  to  ENDO  (lines  607-613). 

If  SUFFIXLENGTH  is  zero,  the  9 MSB  of  ADDR  are  copied  into  the  address 
field  of  the  microword  and  the  FS-bits  are  set  to  0000  if  the  LSB  of  address 
is  0,  or  to  0001  if  the  LSB  of  ADDR  is  1 (lines  614-625).  Further  processing 
of  the  phrase  is  bypassed  by  branching  to  ENDO,  translation  of  the  phrase  having 
been  successfully  accomplished. 

Now  the  only  remaining  possible  GOTO  phrases  are  of  the  type  GOTO  label(suffix) 
or  GOTO  label) flags).  The  expected  location  of  the  parantheses  can  be  com- 

puted based  on  SUFFIXLENGTH.  If  the  parantheses  are  not  where  they 
are  expected  to  be,  an  error  message  is  printed  and  the  processing  of  the  phrase 
is  terminated  by  branching  to  ENDO  (lines  626-632). 

If  the  parantheses  are  where  expected  a DO-CASE-construct  is  entered  (lines  633-753). 

The  cases  SUFFIXLENGTH  = 1,  = 3,  = 4,  and  =7  are  processed  by  different  blocks 
within  the  DO-CASE-construct  (lines  635-659,  661-690,  691-720  and  723-752  respectively). 

In  the  case  where  SUFFIXLENGTH  = 1 there  are  5 possible  legal  characters  that 
can  appear  between  the  parantheses:  0,  1,  S,  Z or  P.  If  the  suffix  ’0’  was 
specified,  the  FS-bits  must  be  set  to  0000  (lines  637-638).  If  the  suffix  ’1’ 
was  specified,  the  FS-bits  must  be  set  to  0001  (lines  639-640).  If  the  flagset  ’S’ 

was  specified,  the  FS-bits  must  be  set  to  0010  (lines  641-642).  If  the  flagset 

’Z’  was  specified,  the  FS-bits  must  be  set  to  0011  (lines  643-644).  If  the  flagset 

’P’  was  specified,  the  FS-bits  must  be  set  to  0100  (lines  645-646).  If  none  of 

these  was  specified,  an  error  message  is  printed  and  the  processing  of  the  phrase 
is  terminated  by  branching  to  ENDO  (line  647-653).  Finally  the  contents  of  ADDR 
are  copied  to  the  address  field  of  the  microword  (lines  654-658). 


-60- 


In  the  case  where  SUFFIXLENGTH  = 3,  there  are  two  alternatives.  A 3-digit 
binary  suffix  or  the  characters  ’HHI’  way  appear  between  the  parantheses. 


If  a 3-digit  binary  suffix  is  specified,  the  value  represented  by  these  3 bits 
is  ORed  with  ADDR  and  the  address  and  FS-bits  of  the  microword  are  set 
accordingly  (lines  663-676).  If  ’HHI’  is  specified,  the  FS-bits  are  set  to  1001  and  the 
9 MSB  of  ADDR  are  copied  into  the  address  field  of  the  microword  (lines  677- 
686).  If  neither  of  the  above  was  specified,  an  error  message  is  printed 
(lines  687-689). 

In  the  case  where  SUFFIXLENGTH  = 4,  there  are  two  alternatives.  A 4-digit 
binary  suffix  or  the  characters  ’RHHI’  way  appear  between  the  parantheses. 

If  a 4-digit  binary  suffix  is  specified,  the  value  represented  by  these  4 bits  is  ORed 
with  ADDR  and  the  address  and  FS-bits  of  the  microword  are  set  accordingly 
(lines  693-706).  If  ’RHHI’  is  specified,  the  FS-bits  are  set  to  1000  and  the 
9 MSB  of  ADDR  are  copied  into  the  address  field  of  the  microword  (lines 
707-716).  If  neither  of  the  above  was  specified,  an  error  message  is  printed 
(lines  717-719). 

In  the  case  where  SUFFIXLENGTH  = 7,  there  are  two  alternatives.  A 7-digit 
binary  suffix  or  the  characters  ’EOPCODE’  way  appear  between  the  parantheses. 

If  a 7-digit  binary  suffix  is  specified,  the  value  represented  by  these  7 bits  is 
ORed  with  ADDR  and  the  address  and  FS-bits  of  the  microword  are  set 
accordingly  (lines  725-738).  If  ’EOPCODE’  is  specified,  the  FS-bits  are  set 
to  1100  and  the  9 MSB  of  ADDR  are  copied  into  the  address  field  of  the 
microword  (lines  739-748).  If  neither  of  the  above  was  specified,  an  error 
message  is  printed  (lines  749-751). 


5.1 .1 .2.3.4.4.3.1  The  Case  TYPE=1 : Translation  of  Register  Assignment  Phrases 
The  block  in  lines  755-839  translates  register  assignment  phrases.  There  are  two 


legal  register  assignment  phrases: 


■ REG(n)  = ALC 

■ REG(n)  = SHIFTER 

The  register  address  n can  be  a hexadecimal  digit  (e.g.,  5 or  D),  or  #. 

Translation  is  as  follows:  M2  is  set  to  0 for  = SHIFTER  and  to  1 for 
= ALC.  If  the  register  address  is  hexadecimal,  the  R field  is  set  accordingly 
and  RS  is  set  to  0.  If  the  register  address  is  # , RS  is  set  to  1. 

The  code  translating  register  assignment  phrases  begins  with  a test  for  register 
address  being  specified  by  #.  (line  758).  If  this  is  the  case,  a further  test 
has  to  be  made  to  see  if  RS  has  been  set  to  0 by  some  other  phrase  (line  760). 

If  RS  has  been  set  to  0 by  another  phrase,  an  error  message  is  printed  and 
processing  of  the  phrase  is  terminated  by  branching  to  END1  (lines  761-766). 

Otherwise,  RS  is  set  to  1 and  the  local  variables  REGNO  and  BADREG  are  set  as 
if  REG(O)  had  been  specified  (lines  767-772). 

If  the  register  address  is  not  # , REGNO  and  BADREG  are  set  by  a call  to 
the  function  ASCII2BIN  (line  775).  A further  test  has  to  be  made  to  see 
if  RS  has  been  set  to  1 by  another  phrase,  an  error  message  is  printed  and  pro- 
cessing of  the  phrase  is  terminated  by  branching  to  END1  (lines  777-782) 

Otherwise  RS  is  set  to  0 (lines  783-786). 

If  an  invalid  register  address  has  been  encountered  (line  788),  an  error  message  is  printed 
(lines  791-793)  and  the  phrase  is  ignored  by  jumping  to  the  end  of  the  block  (line 
793). 

If  the  R-field  is  already  set  (FIELDG3)  = FF)  to  a value  other  than  the  register 
address  held  in  REGNO  (line  795),  an  error  message  is  printed  and  the  phrase  is 
ignored  by  jumping  to  the  end  of  the  block  (lines  796-801). 
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If  = ALC  is  specified  (line  802)  and  setting  M2  to  1 causes  a conflict  (line  804),  an 
error  message  is  printed  (lines  805-810).  If  it  does  not  cause  a conflict,  R is  set  to 
the  value  stored  earlier  in  REGNO  (line  813),  M2  is  set  to  1 (line  815),  and  FIELD(13) 
and  FIELD(I6)  are  set  to  FF  (line  812  & 814)  indicating  that  the  R and  M2 
fields  have  been  set.  Thereafter,  a jump  is  taken  to  the  end  of  the  block  (line  816). 

If  = SHIFTER  is  specified,  the  procedure  (lines  819-834)  is  the  same  as  above  (lines 
802-818)  except  M2  is  set  to  0. 

If  the  character  string  following  the  equal  sign  is  neither  = ALC  nor  = SHIFTER,  an 
error  message  is  printed  (lines  835-838).  The  block  ends  at  line  839. 

5.1 .1 .2.3.4.4.3.2  The  Case  TYPE=2:  Translation  of  PIB-Phrases 

The  block  in  lines  988-1078  translates  P1B  phrases.  There  are  three  legal  P1B  phrases: 

■ P1B  = REG(n) 

■ P1B  = DI 

■ P1B  = @ 

The  register  address  n can  be  a hexadecimal  digit  (e.g.  5 or  D),  or  #.  Translation 
is  as  follows:  For  P1B  = DI,  S2  is  set  to  0 and  M cannot  take  on  the  value 

000.  For  P1B  = REG(n),  S,  is  set  to  1.  The  R-field  is  set  to  the  binary  equivalent 
of  the  hexadecimal  digit  specified  in  the  register  address,  or  to  zero  if  #.  is  specified. 
The  RS-bit  is  set  to  1 if  # is  specified,  and  to  0 otherwise. 

The  code  translating  P1B  phrases  begins  with  a test  for  the  presence  of  the  character 
string  ’REG(’  in  the  array  PHRASE  (line  843).  The  block  in  lines  844-905  is 
entered  if  the  above  test  is  satisfied.  This  block  sets  the  R-field  to  the  binary 
equivalent  of  the  register  address  specified  and  sets  the  RS-bits  to  1 if  # is  specified 
as  the  register  address.  A number  of  illegal  specifications  are  detected  and  appropriate 
messages  issued. 


If  # is  specified  in  the  register  address  (line  845),  the  RS  bit  is  set  to  1 
(line  857)  and  the  register  address  is  translated  as  if  REG(O)  had  been  specified 
(lines  855-856).  If  the  register  address  is  specified  by  anything  other  than 
REGNO  and  BADREG  are  set  by  a call  to  the  function  ASCII2B1N  (line  862). 

If  an  invalid  register  address  has  been  encountered  (line  875)  an  error  message 
is  printed  and  the  phrase  is  ignored  by  jumping  to  the  end  of  the  block  (lines 
876-881). 

The  code  in  lines  882-892  sets  the  R-field.  If  the  R-field  is  already  set  by  a 
preceding  phrase  and  is  set  to  a value  other  than  the  one  contained  in  REGNO 
(line  882),  an  error  message  is  printed  and  the  phrase  is  ignored  by  jumping 
to  the  end  of  the  PIB-translation  block  (lines  883-888).  Otherwise,  the  R-field 
is  set  to  the  value  of  REGNO  and  FIELD  (13)  is  set  to  FF,  indicating  that 
R has  been  set  (lines  889-892). 

The  setting  of  the  S-bits  is  done  in  lines  893-904.  If  the  phrase  is  P1B  = REG(n) 
then  S,  is  set  to  1 (lines  900-904),  unless  this  causes  a conflict  (tested  in  line 
893).  If  a conflict  would  arise,  an  error  message  is  printed  and  the  phrase 
is  ignored  by  jumping  to  the  end  of  the  PIB-phrase  translation  block  (lines  894-899). 


For  the  phrase  P1B  = DI  (line  906),  the  S,  is  set  to  0,  unless  this  causes  a conflict 
with  previous  phrases  (tested  in  line  908).  The  delayed  resolution  flag  P1BDIPHRASEPRE- 
SENT  has  to  be  set  to  insure  that  M ^ 000.  If  setting  Sj  = 0 causes  a conflict 
an  error  message  is  printed  and  the  phrase  is  ignored  by  jumping  to  the  end  of 
PIB-phrase  translation  block  (lines  909-914).  The  phrase  P1B  = @ is  translated  like 
P1B  = DI,  except  the  IM-bit  is  set  to  1 (lines  922-938). 


If  the  phrase  does  not  satisfy  any  one  of  the  three  tests  (lines  843,  906,  922) 
then  the  phrase  is  illegal  and  an  error  message  is  printed  (lines  939-942).  The 
block  ends  in  line  943. 


L 
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5.1.1 .2.3.4 .4.3.3  The  Case  TYPE=3:  Translation  of  P2B-Phrases 

The  block  in  lines  1079-1142  translates  P2B  phrases.  There  are  four  legal 
P2B  phrases: 

■ P2B  = P2B 

■ P2B  = DI 

■ P2B  = @ 

■ P2B  = REG(n). 

The  register  address  n can  be  an  octal  digit  or  #. 

Translation  is  as  follows.  For  P2B  = P2B,  the  A-bits  must  be  01  and  S, 
must  be  1.  For  P2B  = REG(n)  either  St  = 0 and  A f 01  or  St  = 1 and 
A = 01.  The  T-field  is  set  to  the  binary  equivalent  of  the  octal  digit,  or  to 
zero  if  # was  specified.  If  # was  specified,  RS  must  be  set  to  1;  if  an 
octal  digit  was  specified  it  must  be  set  to  0. 

The  code  translating  P2B  phrases  consists  of  4 tests  (lines  947,  464,  980,  997) 
deciding  which  P2B  phrase  is  at  hand.  If  all  four  tests  are  failed,  an  error 
message  is  printed  and  the  phrase  is  ignored  (lines  1043-1046). 

If  the  phrase  is  P2B  = P2B  (tested  in  line  947),  a further  test  is  made  to  see  if 
the  control  bit  settings  S,  = 0 and  A = 01  cause  a conflict  (line  949).  If 
yes,  an  error  message  is  printed  and  the  phrase  is  ignored  by  jumping  to  the  end  of 
the  P2B  phrase  translation  block  (lines  950-955).  If  no  conflict  arises,  the  A-bits 
are  set  to  01,  S!  is  set  to  1 and  FIELD(?T,  FIELD(8),  and  FIELD(ll)  are 
set  to  FF  (lines  950-962). 

If  the  phrase  is  P2B  = DI  (tested  in  line  964),  a further  test  is  made  to  see  if 
the  control  bit  setting  Sj  = 1 and  A + 01  cause  a conflict  (line  966).  If  yes> 
an  error  message  is  printed  and  the  phrase  is  ignored  by  jumping  to  the  end 
of  the  P2B  phrase  translation  block  (lines  967-972). 

If  no  conflict  arises,  the  delayed  resolution  flag  NOTAD1  is  set  preventing  A from 
taking  on  the  value  01,  St  is  set  to  1,  IM  is  set  to  1 and  FIELD(ll)  is  set 


FF 


(lines  989-995). 


If  the  phrase  is  P23  = REG(n)  (tested  in  line  997),  the  register  address  is 
decoded  first.  If  it  is  specified  by  a # (line  999)  then  the  RS  is  set  to 
1 and  REGNO  and  BADREG  are  set  as  if  REG(O)  had  been  specified  (line 
1008-1013).  If  the  register  address  is  specified  by  a hexadecimal  digit,  its 
binary  equivalent  is  computed  by  a call  to  the  function  ASC1I2BIN  (line 

1016)  and  RS  is  set  to  0.  If  setting  RS  causes  a conflict  an  error  message  i 

is  printed  (lines  1000-1007  and  1017-1023).  If  the  register  address  is  not  valid  ! 

(tested  in  line  1029)  an  error  message  is  printed  and  the  phrase  is  ignored  by  i 

jumping  to  the  end  of  the  P2B-phrase  translation  block  (lines  1030-1035). 

If  the  register  address  is  valid,  the  value  of  REGNO  is  entered  into  the 
T-field  and  FIELD(14)  is  set  to  FF  (lines  1036-1039). 

Since  two  control  bit  settings  are  possible  (Sj  = 0,  A f 01  and  S,  = 1,  A = 01), 
the  delayed  resolution  flag  P2BREGPHRASEPRESENT  is  set  to  FF  (line  1040). 

The  P2B-phrase  translation  block  ends  after  the  unrecognized  phrase  error 
trap  (lines  1043-1046)  at  line  1047. 

5.1,1 .2.3.4 .4.3.4  The  Case  TYPE=4:  Translation  of  DO-Phrases 

The  block  in  lines  1048-1105  translates  the  DO-phrases.  There  are  4 valid  DO- 
phrases: 

■ DO  = OFF 

» DO  = ALC 

a DO  = P1B 

■ DO  = P2B. 

Translation  is  as  follows:  For  DO  = ALC  the  M-bits  are  set  such  that  M f 1 lx 
and  DOE  is  set  to  1.  For  DO  = P1B  the  M-bits  are  111  and  DOE  is  set  to 
1.  For  DO  = P2B  the  M-bits  are  110  and  DOE  is  set  to  1.  For  DO  = OFF 
the  DOE-bit  is  set  to  0. 
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elating  DO-phrases  consists  of  4 tests  (lines  1049  1054,  1069  arc 

. ; which  DO-phrase  is  at  hand.  If  all  four  tests  are  failed,  an  err< 
mted  (lines  1101-1104)  and  the  phrase  is  ignored. 

h:.ise  is  DO  = OFF  (tested  in  line  1049)  the  DOE  is  set  to  0 (line  1051). 

If  i:  , phrase  is  DO  = ALC  (tested  in  line  1054)  a further  test  is  made  to  see 

if  M is  set  to  110  or  111  (lines  1056).  If  yes,  an  error  message  is  printed 
and  the  phrase  is  ignored  by  jumping  to  the  end  of  the  DO-phrase  translation 
biock  (lines  1057-1062).  If  no  conflict  arises,  the  delayed  resolution  flag 
DOALCPHRASEPRESENT  is  set  to  FF  and  DOE  is  set  to  1 (lines  1063-1067). 

If  the  phrase  is  DO  = P1B  or  DO  = P2B,  DOE  is  set  to  1 and  M is  set  to  1 1 1 

or  110  respectively  (lines  1078-1083  and  1094-1099).  In  case  of  conflicts  error 
messages  are  printed  (lines  1072-1077  and  1088-1093).  The  DO-phrase  translation 
block  ends  after  unrecognized  phrase  error  trap  (lines  1101-1104)  at  line  1105 

5.17.2.3.4.4.3.5  The  Case  TYPE=5:  Translation  of  ALC-Phrases 

The  block  in  lines  1106-1287  translates  ALC-phrases.  ALC-phrases  are  syntactically 
complex  than  other  phrases.  They  consist  of  a left  operand  which  can  b.c 


fc  P1B 

• .NOT.P1B 

I 

followed  bv  an  operator,  which  can  be: 

K + 

■ OR 

• AND 


fol'.'wed  hj  a right  operand,  which  can  be: 


optionally  followed  by  a carry-in  specification.  In  addition  to  these,  phrases 
of  the  form 


are  translated  as  if 


had  been  specified. 


ALC  = left  - P2B 


ALC  = left  + .NOT.P2B  + CO 


After  some  preliminary  processing  (lines  1107-1136),  the  carry-in,  right  operand,  left 
operand  and  the  operator  are  translated  separately  (lines  1137-1151,  1152-1204,  1205- 
1237  and  1238-1286  respectively). 


The  block  begins  with  a search  for  the  rightmost  non-blank  character  in  array  PHRASE 
(lines  1107-1110).  The  block  in  lines  1111-1136  handles  phrases  containing  ‘-P2B’ 
as  the  operator  and  right  operand.  Such  phrases,  if  legally  specified,  are  not  longer 
than  25  characters.  Thus,  if  the  last  non-blank  character  of  the  phrase  is  to  the 
right  of  position  24,  an  error  message  is  printed  (lines  1129-1135)  and  the  phrase 
is  ignored  by  jumping  to  the  end  of  the  ALC-phrase  translating  block.  If  the  phrase 
is  not  too  long,  the  string  ‘+.NOT.P2B+CO’  is  substituted  for  *— P2B’  (lines  1115-1126) 
and  the  pointer  to  the  last  non-blank  character  is  changed  to  reflect  the  lengthened 
phrase  (line  1 1 27).  Note  that  the  test  for  a phrase  containing  -P2B  that  is  longer 
than  25  characters  is  necessary  in  order  to  avoid  overflowing  the  size  of  array  PHRASE 
when  the  substitution  takes  place. 


The  carry-in  part  of  the  phrase  is  translated  in  lines  1137-1151.  If  a carry-in  is 
specified  explicitly  by  ‘+CO’,  ‘+COUT’  or  ‘+.NOT.COUT’,  then  the  Cl  field  is  set  to 
01,  10  or  11  respectively  (lines  1140,  1145,  1150).  The  pointer  to  the  last  non- 
blank character  is  adjusted  indicating  that  the  carry-in  is  already  processed.  If  no 
explicit  carry-in  specificatin  is  present,  Cl  is  left  in  its  default  state,  which  is  00. 


The  right  operand  part  of  the  phrase  is  translated  in  lines  1152-1204.  The  three 
legal  specifications  for  the  right  operand  (0,  .NOT.P2B  and  P2B)  are  recognized  by 
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three  tests  (lines  1152,  1168,  and  1184).  If  all  three  tests  are  failed,  the  right 
operand  is  illegally  specified.  In  that  case,  an  error  message  is  printed  and  the 
phrase  is  ignored  by  jumping  to  the  end  of  the  ALC-phrase  translation  block 
(lines  1200-1204). 

The  translation  of  0 as  the  right  operand  results  in  the  control  bit  settings  D,  = 1. 
In  line  1154,  a test  is  made  to  see  if  this  setting  causes  a conflict  with  earlier 
phrases.  If  there  is  a conflict,  an  error  message  is  printed  and  the  phrase  is  ignored 
by  jumping  to  the  end  of  the  ALC-phrase  translation  block  (lines  1155-1160). 

If  no  conflict  occurs,  D,  is  set  to  1 (line  1163),  FIELD(20)  is  set  to  FF  (line 
1162)  indicating  that  D,  has  been  set,  the  pointer  is  moved  one  position  to  the 
left  (line  1164)  now  pointing  to  the  end  of  the  operator,  and  a branch  is  taken 
to  the  end  of  the  right  operand  translating  code  (line  1165). 

The  translation  of  .NOT.P2B  as  the  right  operand  results  in  the  control  bit  settings 
D2  = 0 and  Dj  = 0.  In  line  1170  a test  is  made  to  see  if  this  setting  causes 
a conflict  with  earlier  phrases.  If  there  is  a conflict,  an  error  message  is  printed 
and  the  phrase  is  ignored  by  jumping  to  the  end  of  the  ALC-phrase  translation  block 
(line  1171-1176). 

If  no  conflict  occurs,  D2  and  Dj  are  set  to  0 (line  1179)  and  FIELD(19) 
and  FIELD(20)  is  set  to  FF  (line  1178)  indicating  that  D2  and  Di  have  been  set. 
The  pointer  is  moved  8 positions  to  the  left  (line  1 1 80)  now  pointing  to  the  end 
of  the  operator.  A branch  is  taken  to  the  end  of  the  right  operand  translating 
code  (line  1181). 


The  translation  of  P2B  as  the  right  operand  results  in  the  control  bit  settings  D2  = 1 
and  D,  = 0.  In  line  1186,  a test  is  made  to  see  if  this  setting  causes  a conflict  with 
earlier  phrases.  If  there  is  a conflict,  an  error  message  is  printed  and  the  phrase 
is  ignored  by  jumping  to  the  end  of  the  ALC-phrase  translation  block  (lines  1187-1192). 
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If  no  conflict  occured  l':  is  set  u ) and  FIELDC19)  and 

FIELD (20)  are  set  to  FI  (lines  IF  . :.uter  is  moved  2 po  itions 

to  the  left  (line  1196)  now  pointing  r'  •'■■  ■ operator.  A branch 

is  taken  to  the  end  of  the  right  operano  uansLi.  code  (line  1197). 

The  left  operand  of  the  phrase  is  translated  ir,  lines  1205-1237.  The  two  legal 
specifications  for  the  left  operand  (PlB,  and  .NOT.PIB)  are  recognized  by  two  tests 
(lines  1205  and  1218).  If  both  tests  are  failed,  the  left  operand  is  illegally 
specified.  In  that  case,  an  error  message  is  printed  and  the  phrase  is  ignored  by 

jumping  to  the  end  of  the  ALC-phrase  translating  block  (lines  1233-1237). 

Two  translations  of  PlB  as  the  left  operand  are  possible:  D2  = 0,  D,  =0  or 
D2  =1.  If  D2  = 1 and  D,  = 0 or  if  D2  is  not  set  then  the  translation  D2  = 1 
is  chosen.  If  D2  and  D,  are  both  set  to  0 then  D2  = 0,  D,  = 0 is  chosen 
as  the  translation. 

Accordingly,  two  tests  are  made  to  see  which  translation  is  applicable  (lines  1207  and  1213) 
and  the  corresponding  bits  are  set  (lines  1 208  1 ' and  1214-1217).  Only  one 
translation  of  .NOT.PIB  as  the  left  operand  is  possible:  D2  = 0,  D,  = 1. 

If  D2  is  set  to  1 or  D,  is  set  to  0 (line  1220)  an  error  message  is  printed  (lines 
1221-1226).  Otherwise  FIELD09)  and  FJELD(20)  are  set  to  FF.  D2  is  set  to  0 
and  D!  is  set  to  1 (lines  1227-1231). 

Lines  1233-1236  print  an  error  message  if  the  left  operand  was  not  recognized  as 
being  legal,  followed  by  a branch  to  the  end  of  the  ALC-phrase  translation  block 
from  line  1237. 

The  operator  of  the  phrase  is  translated  in  lines  1238-1286.  The  three  legal  operators 
(+,  OR  and  AND)  are  recognized  by  three  tests  (lines  1238,  1253,  and  1268).  If 
all  three  tests  are  failed,  the  operator  is  illegal : specified.  In  that  case,  an  error 
message  is  printed  (lines  1283-1286). 


A 


-70- 


Xiic  translation  of  + rat  or  i-  A,  = 0.  In  line  1240  a test  is  made  to  see 

if  a conflict  occurs  due  to  this  control  bit  setting.  If  there  is  a conflict,  an  error 
message  is  printed  (lines  124  '-1246)  and  the  phrase  is  ignored  by  jumping  to  the 
crd  of  the  A LC  phrase  translation  block. 

If  no  conflict  occurs,  Aj  is  set  to  0 and  FIFLD(7)  is  set  to  FF,  indicating  that 
A,  had  been  set  (lines  1247-1251).  A branch  to  the  end  of  the  ALC-translating 
block  is  taken  from  line  1250,  thus  completing  the  translation  of  the  phrase. 

The  translation  of  OR  as  the  operator  is  A = 11.  In  line  1255  a test  is  made,  to 
see  if  a conflict  occurs  due  to  this  control  bit  setting.  If  there  is  a conflict,  an 
error  message  is  printed  and  the  phrase  is  ignored  by  jumping  to  the  end  of  the  ALC 
phrase  translation  block  (lines  1256-1261). 


If  no  conflict  occurs,  A is  set  to  1 1 and  FIELD(7)  and  FIELD(8)  are  set  to 
FF,  indicating  that  A had  been  set  (line  1452).  A branch  to  the  end  of  the 
ALC-iranslating  block  is  taken  thus  completing  the  translation  of  the  phrase  (lines 
1262-1266). 

The  translation  of  AND  as  the  operator  is  A = 10.  In  line  1270  a test  is  made, 
to  see  if  a conflict  occurs  due  to  this  control  bit  setting.  If  there  is  a conflict, 
an  error  message  is  printed  and  the  phrase  is  ignored  by  jumping  to  the  end  of  the 
ALC-phrase  translation  block  (lines  1271-1276). 

If  no  conflict  occurs,  A is  set  to  10  and  FIELD (7)  and  FIELD(8)  are  set  to 
FF  indicating  that  A had  been  set.  A branch  to  the  end  of  the  ALC-translating 
block  is  taken  thus  completing  the  translation  of  the  phrase  (lines  1277-1281). 
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5.1.1.2.3.4.4.3.6  The  Case  TYPE=6:  Translation  of  SHIFTER-Phrases 

The  block  in  lines  1288-1467  translates  SHIFTER-phrases.  The  valid  SHIFTER- 
phrases  and  their  translation  are  shown  in  5.1-7. 


Table  5.1-7  Translation  of  SHIFTER-Phrases 


SHIFTER  = @ 

Mi  = 0,  M0  * 0,  Sj  = 0,  IM  = 1 

SHIFTER  = DI, 

M!  = 0,  M0  = 0,  S,  = 0 

SHIFTER  = ALC(6-0)W0, 

M,  = 0,  M0  = 1,  C = Oil.* 

SHIFTER  = ALC(6-0y\  1, 

M,  = 0,  M0  = I,  C = 010  * 

SHIFTER  = ALC(6-0)'^  MXLOIN, 

Mi  = 0,  M0  = 1. 

SHIFTER  = 0\\ALC(7-1), 

Mi  = 1,  M0  = 0,  C = Oil.* 

SHIFTER  = 1\\ALC(7-1), 

M,  = 1,  M0  = 0,  C = 010.* 

SHIFTER  = MXH0IN\\ALC(  7- 1 ), 

Mi  = 1,  M0  = 0. 

SHIFTER  = 00\\ALC(7-2), 

Mi  = 1,  M0  = 1,  C = Oil.* 

SHIFTER  = 1 l\\ALC(7-2), 

Mi  = 1,  M0  = I,  C = 010.* 

SHIFTER  = MXHlIN\\MXH0IN\\ALC(7-2). 

M,  = 1,  M0  = 1. 

The  code  translating  SHIFTER-phrases  consists  of  11  tests  (lines  1284,  1306,  1322, 

1338,  1354,  1369,  1385,  1401,  1416,  1432,  and  1448)  deciding  which  SHIFTER 
phrase  is  at  hand.  If  all  1 1 tests  are  failed,  an  error  message  is  printed  (lines 
1463-1466). 

The  blocks  entered  when  any  one  of  the  1 1 tests  is  passed  are  all  very  similar.  Each 
begins  with  a tests  for  conflicts  with  the  control  bit  configuration  which  constitutes  the 
translation  of  the  respective  phrase.  If  there  is  .1  conflict,  an  error  message  is  printed 
and  the  phrase  is  ignored  by  jumping  to  the  end  of  the  SHIFTER-phrase  translation 
block. 

If  there  is  no  conflict,  the  respective  bits  are  set  (as  shown  in  table  3)  and  the  respec- 
tive elements  of  array  FIELD  are  set  to  FF. 


* Only  C,and  C0  are  actually  represented  in  the  microwords.  C2  is  always  0. 
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5.1 .1 ,2.3.4.4.3.7  The  Case  TYPE=7:  Translation  of  MXLOOUT-Phrases 

The  block  in  lines  1468-1491  translates  MXLOOUT  phrases.  There  is  only  one 
valid  MXLOOUT  phr  :se. 


■ MXLOOUT  = ALC(O). 

Translation  is  M,  = 0,  M0  = 1.  A test  is  made  to  see  if  this  control  bit 
setting  causes  a conflict  (line  1471).  If  there  is  a conflict,  an  error  message 
is  printed  and  the  phrase  is  ignored  by  jumping  to  the  end  of  the  MXLOOUT- 
phrase  translating  block  (lines  1472-1477). 

If  no  conflict  occurs,  the  control  bits  Mj  and  M0  are  set  to  0 and  1,  respectively 
and  FIELD(16)  and  FIELD(17)  are  set  to  FF  indicating  that  M)  and  M0 
have  been  set.  (lines  1478-1483). 

If  an  invalid  MXLOOUT-phrase  is  specified  (anything  other  than  MXLOOUT  = ALC(O), 
tested  in  line  1469),  an  error  message  is  printed  (lines  1485-1490)  and  the  phrase 
is  ignored. 

5.1 .1 .2. 3.4.4. 3.8  The  Case  TYPE=8:  Translation  of  MXLIOUT-Phrases 

The  block  in  lines  1492-1514  translates  MXLIQUT-phrases.  There  is  one  legal 
MXL1  OUT-phrase: 

■ MXLIOUT  = ALC(l) 

Translation  is  M = Oil.  A test  is  made  to  see  if  the  control  bit  setting  M = Oil 
causes  a conflict  (line  1495).  If  there  is  a conflict,  an  error  message  is  printed 
and  the  phrase  is  ignored  by  jumping  to  the  end  of  the  MXL1  OUT-phrase  trans- 
lating block  (lines  1496-1501). 

If  no  conflict  occurs,  M is  set  to  Oil  and  FIELD(16),  FIELD(17),  and  FIELD(18) 
are  set  to  FF,  indicating  that  the  M-bits  have  been  set  (lines  1502-1506). 
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man 


!i‘  vai.ti  VIXLiOi  7-phrase  is  specified  (anytn.n;  •;  he 
»r.  message  is  vrinted  (lines  i 508-1513  end  : • phra<.: 


' ( 1 )) 


5 ! .1 .2.3.4. 4.3.9  rhe  Case  TYPE=9:  Translation  f IXHOOUT-r sv : es 

The  biock  i;i  lines  1515-1537  translates  MXHOOU 1 -phrase  . /here  on  / ;e  Jit 
MXHOOuT  phrase: 

a MXHOOUT  = ALC(7). 

The  translation  is  M = 001.  A test  is  made  to  see  if  the  control  bif  setting 
M = 001  causes  a conflict  (line  1518).  If  there  s a conflict,  an  error  message  s 
printed  and  the  phrase  is  ignored  by  jumping  to  tile  end  of  the  \A  : HOOUT-phrase 
translating  block  (lines  1 5 i 9- 1 524). 

If  no  conflict  occurs,  M is  set  to  001  and  FIELD(i6),  ? £LD(i7).  and  :-TlLD(!3) 
are  set  to  FF,  indicating  that  the  M-bits  have  been  set  (lines  15 25-  529  . 

If  an  invalid  MXHOOUT-phrase  is  specified  (anything  other  than  ivIXrio.  LTf  = ALC(7)) 
an  error  message  is  printed  (lines  1531-1536)  and  the  phrase  is  ignorec 

5.1.1.2.3.4.4.3.10  The  Case  TYPE  = 10:  Translation  of  MXHIOUT-fhrases 

The  block  in  lines  1841-1891  translates  MXHIOUT-phrases.  Ther  is  one  iegal 
MXH 1 OUT-phrase : 

a MXH  1 OUT  = OFL 

Translation  is  Cj  = 1.  A test  is  made  to  see  if  the  control  bit  s Ting  C,  = 1 
causes  a conflict  (line  1541).  If  there  is  a conflict,  an  error  message  is  printed 
and  the  phrase  is  rgnored  by  jumping  to  the  end  of  the  - MXH1  OUT-phrase  ^ins- 
tating blocK  (lines  1542-1546). 

If  no  conflict  occurs,  Cj  is  set  to  1 and  F1ELD(2)  set  to  FF,  indicating  that  Cj 
has  been  set  (lines  1547-1550). 

If  an  invalid  MXH  1 OUT-phrase  is  specified  (anything  other  than  MX  HI  OUT  = OFL) 
an  error  message  is  printed  (lines  1552-1557)  and  the  phrase  is  ignored. 
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i IH  se  TYFE=»  ■ Transition  s (.XsVman . 
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hc  . ime  " 74  translates  CO-pnraser.  There  are  two  legs!  CO-rtm 

s CO  - GPUCOlTi 
. ■ j = r > 


V 


•i.-ir.e.  !•;  translated 


setting  the  CO-bi.  to  0,  the  latte  sec’-  . 


it  to 


..  , . <:  .<  . which  of  these  phrases  is  at  hand  flin;  . ' 0 an< 

•r  . specified,  >.he  CO-bit  is  set  to  0 and  a branch  >o  ie  cw  -v 

i 1564)  If  L2  is  spet ified  th  O-bi  « set  tc 

i - :..e  r.J  C the  block  is  taken  'lines  1566-1569)  illegal  CO-phras 
,ilV.  . .tpjvw  oy  printing  ..a  vr.-or  message  (line  1570-1573). 


« i i , -pi  3 The  Case  TYPE*12:  Translation  of  MFLAGS-!''hrases 

\,  block  in  50C  tra  slates  MFLAGS- ihrases  rhere  are 

MFlM  TL-phrases: 

•r  MV  1 AGS  - DISABLE 
-a  MFLAGS  = ENa  b Ub(OU  >. ) 

MFLAGS  ENABT.  ii(SZP) 
e - ENATUJE(ALL) 


)f  the  translated  by  setting  the  MFLAGS-bits  to  00, 

-o  • a tnem  to  0 . tli  third  by  setting  them  to  t0,  and  the.  fourth  t\>  sei- 
them  i.o  11. 
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•,Ra  , 59  pnrase  is  recognized  by  one 
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, (hn  . .1  i " - ) 581 

2-  595).  If  the  pin  a 

• 

r*  j '1,  ■ r. 

on  ted  (lines  1596- 

5.1.1.2.3.4.4.3.13  The  Case  TYPE=13:  Translation  of  COUT-Phrases 

The  block  in  lines  1601-1626  translates  COUT-phrases.  There  are  four  legal 
COUT-phrases 

■ COUT  = COUT 

■ COUT  = GPUCOUT 

■ COUT  = DO(7) 

■ COUT  = DO(O) 

The  first  of  these  is  translated  by  setting  the  CO-bits  to  00,  the  second  by  setting 
them  to  01,  the  third  by  setting  them  to  10,  and  the  fourth  by  setting  them  to 
11. 

Four  tests  are  made  to  see  which  of  these  phrases  is  at  hand  (lines  1602,  1607, 
1612  and  1617).  If  a phrase  is  recognized  by  one  of  these  tests,  the  CO-bits  are 
set  accordingly  and  a branch  to  the  end  of  the  block  is  taken  (lines  1603-1606, 
1608-1611,  1613-1616,  1618-1621).  If  the  phrase  is  not  recognized  as  one  of 
these  four,  an  error  message  is  printed  (lines  1622-1625). 

5.1.1.2.4.3.3.4.14  The  Case  TYPE=14:  Translation  of  the  NOLOAD  Phrase 
The  block  in  lines  1627-1638  translates  the  NOLOAD  phrase: 

* NO LOAD 

Translation  consists  of  setting  M = 100.  If  this  causes  a conflict  (tested  in  line 
1628)  an  error  message  is  printed  (lines  1629-1633).  Otherwise  M is  set  to 
100  and  FIELD(16),  FIELD(17),  and  FIELD(18)  are  set  to  FF,  indicating 
that  the  M-bits  have  been  set  (lines  1634-1637). 
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5.1.1.2.3.4.4.3.15  The  Case  TYPE=15:  Translation  of  I/O-Phrases 

The  block  in  lines  1639-1719  translates  I/O  phrases.  There  are  15  possible 
I/O  phrases.  The  phrases  and  their  translation  are  as  follows: 


PHRASE 

TRANSLATION 

I/O  = 

.NOT.MEMR 

I/O 

= 

0001 

I/O  = 

.NOT.MEMW 

I/O 

= 

0010 

I/O  = 

.NOT.IOR 

I/O 

= 

0011 

I/O  = 

.NOT.IOW 

I/O 

= 

0100 

I/O  = 

HLDA 

I/O 

= 

0101 

I/O  = 

WAIT 

I/O 

= 

0110 

I/O  = 

INTES 

I/O 

= 

0111 

I/O  = 

.NOT.INTA.NOT.IFCH 

I/O 

= 

1000 

I/O  = 

HLDA.WAIT 

I/O 

= 

1001 

I/O  = 

INTER 

I/O 

= 

1010 

I/O  = 

.NOT.MEMR.NOT.IFCH 

I/O 

= 

1011 

I/O  = 

.NOT.MEMR.NOT.STACK 

I/O 

= 

1100 

I/O  = 

.NOT.MEMW.NOT.STACK 

I/O 

= 

1101 

I/O  = 

El 

I/O 

= 

1110 

I/O  = 

DI 

I/O 

= 

1111 

The  code  translating  I/O-phrases  consists  of  15  tests  deciding  which  I/O-phrase 

is  at  hand.  If  all  15  tests  are  failed,  an  error  message  is  printed  (lines  1715-1718). 

The  blocks  entered  when  anyone  of  the  15  tests  is  passed  are  nearly  identical. 

In  each  the  I/O-bits  are  set  to  the  corresponding  value  and  a branch  to  the  end 
of  the  block  (i.e.  to  END  15)  is  taken. 

5.1.1.2.3.4.4.3.16  The  Case  TYPE=16:  Translation  of  GUA-phrases 
The  block  in  lines  1720-1745  translates  GUA-phrases.  There  are  four  legal  GUA-phrases: 
■ GUA  = ENABLE(CE) 
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fc  GUA  = ENABLE  (LElj 


s GUA  = ENABLE(LE2) 
a GUA  = ENABLE(LES) 

Tht  first  of  these  is  translated  In  setting  the  GU  4-bits  to  00.  the  second  by  setting 
them  to  01,  the  third  by  setting  them  to  10,  the  fourth  by  setting  them  to  ii. 

rot  are  made  .o  see  which  of  these  is  at  hand  (lines  * 0 

17;.;.  ar.c’  '736..  i a phrase  is  recognized  b on;  of  these  tests,  the  GUA- or..-, 
are  set  accordingly'  and  a branch  to  the  end  o the  block  (i.e.  to  END  In)  is  take 
(lines  1722-1725  .727-1730,  1732-1735  and  IT-  740).  If  the.  phrase  is  noi 

jse  four,  an  error  message  is  printed  (lines  i 741-1  744) 


5.  1.1 .2.3.4.4.3.17 


The  Case  TYPE=17: 


^Translation  of  E-Phrases 


"lie  block  a;  tines  1746-1761  translates  E-phrases.  There  are  two  legal  E-phrases: 

b E = 0 
a E = I 

rranslation  consists  of  setting  the  E-bit  in  the  microword  to  0 or  1.  as  specified, 
fwo  tests  are  made  to  see  which  of  the  phrases  is  at  hand  (lines  1747-1452).  in 

cither  case  the  E-bit  is  set  and  a branch  to  END17  is  taken  (lines  1748-1751  and 

1 753-1756  . If  the  phrase  has  not  been  recognized  an  error  message  is  printed 

(lines  1757-1760). 

5 1.1.2.3.4.4.3.18  The  Case  TYPE=18:  Errors 

The  null-statement  in  line  1762  is  executed  if  a phrase  is  too  long  or  if  a phrase 
of  its  type  has  already  been  executed  (see  sections  3.4.23  and  3.4.2A). 

5.1.1.2.3.4.4.3.19  The  Case  TYPE=19:  End  of  Microword 

The  null-statement  in  line  1763  is  executed  if  PHRASE  (0)  = he.,  if  the 
semicolon  ending  the  microword  is  encountered  (see  sections  3.4. 2.4.  and  3 .4.4.3). 

5.:  .1.2.3.4.1.3.20  The  Case  TYPE=20:  Other  Phrases 

The  block  n ;ines  1764-1802  handles  the  phrases  causing  explicit  setting  of  control 
oils  and  traps  unrecognizable  phrases  (where  the  text  to  the  left  of  the  equal  sign, 
is  not  valid).  There  are  5 valid  phrases  in  this  category: 

» A -■  x 

* C = x 

* D = x 

a M = x 

* S = x where  x is  a digit  from  0 to  7. 


The  translation  is  obvious:  the  respective  field  is  set  to  the  value  given. 


w 


If  the  phrase  is  not  one  of  the  5 shown  above  (tested  in  line  1765)  an  error 
message  is  printed  (lines  1766-1771). 

If  the  phrase  is  valid,  the  value  is  converted  from  ASCII  to  binary  (line  1774) 
and  5 tests  are  made,  to  see  which  control  bits  are  to  be  set  (lines  1775,  1780, 
1785,  1791,  1796).  In  each  case,  the  respective  control  bits  are  set  and  the 
corresponding  elements  of  array  FIELD  are  set.  Note  that  no  tests  are  made 
to  check  if  the  respective  control  bits  had  been  set  by  earlier  phrases  which 
causes  these  explicit  control  bit  settings  to  override  symbolic  specifications. 

5.1.1.2.3.4.4.4  Delayed  Resolution  of  Control  Bits 
Delayed  resolution  of  control  bits  takes  place  in  2 steps: 

■ delayed  resolution  of  S,  and  of  the  A-bits  (lines  1805-1847) 

■ delayed  resolution  of  the  M-bits  (lines  1848-1895) 

5. 1.1 .2.3.4 .4.4.1  Delayed  Resolution  of  St  and  of  the  A-Bits 

Two  delayed  resolution  flags  affect  S,  and  the  A-bits:  P2BREGPHRASEPRESENT 
and  NOTAD1. 

If  P2BREGPHRASEPRESENT  is  FF,  two  translations  are  possible: 

■ = 1 and  A = 01,  or 

■ S,  = 0 and  A f 01. 

If  NOTAD1  is  FF,  A may  not  be  set  to  01. 

Eight  conditions  determine  the  value  of  S,  and  of  the  A-bits: 

1.  P2BREGPHRASEPRESENT, 

2.  NOTAD1, 

3.  FIELD  (11)  (indicates  S,  is  set), 

4.  the  current  value  of  S,, 

5.  FIELD(7)  (indicates  A,  is  set), 

6.  FIELD(8)  (indicates  A0  is  set), 

7.  the  current  value  of  Ai, 

8.  the  current  value  of  A0. 
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Figure  5.1-12  shows  the  value  of  S1  and  A as  a function  of  these  8 conditions. 
The  array  TBL  is  the  computer  representation  of  the  Table  in  Figure  5.1-12  and 
S1 , A and  unresolvable  conflicts  are  determined  by  table-lookup. 


In  lines  1807-1822,  the  variable  INDEX  is  set  up  according  to  the  eight  conditions 
ennumerated  above.  The  lookup  takes  place  in  line  1824.  If  the  table  entry  looked 
up  corresponds  to  one  of  the  blank  squares  in  Figure  5.1-12  (tested  in  line  1825),  an 
error  message  is  printed  (lines  1826-1832).  This  should  never  happen,  unless  there 
is  an  error  in  the  Q-80  Microprogram  Assembler. 

If  the  table  entry  looked  up  corresponds  to  one  of  the  E-squares  in  Figure  5.1-12 
(tested  in  line  1833),  an  unresolvable  conflict  exists  and  an  error  message  is 
printed  (lines  1834-1838).  Otherwise,  S,  and  A are  set  according  to  the  table 
entry  looked  up  and  FIELD(7),  FIELD(8),  and  FIELD(ll)  are  set  to  FF, 
indicating  that  S2  and  A have  been  set  (lines  1839-1846). 

5.1 .1 .2. 3.4. 4.4.2  Delayed  Resolution  of  M-Bits 

Two  delayed  resolution  flags  affect  the  M-bits:  DOALCPHRASEPRESENT  and 
P1BDIPHRASEPRESENT.  The  former  is  resolved  in  lines  1848-1868,  the  latter 
in  lines  1869-1891. 

For  DOALCPHRASEPRESENT  it  has  to  be  insured  that  M f llx.  In  doing  so, 
one  must  take  care  that  M not  be  set  to  100,  unless  a NOLOAD  phrase  was 
specified. 

Processing  of  the  DOALCPHRASEPRESENT  condition  begins  by  checking  if  M2 
is  set  to  1 (line  1850).  If  it  is  not,  M2  is  set  to  0 and  FIELD  (16)  is  set 
to  FF  (lines  1868-1871).  If  M2  is  set  to  1,  a further  check  is  made  to  see 
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Figure  5.1-12  Delayed  resolution  of  S,  and  of  the  A-bits. 
The  upper  digit  is  the  value  of  S,,  the  2 lower  digits 
are  the  value  of  Aj  and  A0.  Blank  squares  represent 
conditions  that  are  not  expected  to  occur.  E indicates 
a conflict  that  can  not  be  resolved. 


if  M[  is  also  set  to  i flint  1852).  If  it  is,  an  error  message  is  printed 
(lines  1858-1860).  This  however  may  lead  to  M being  inadvertently  sei  to 
100.  Therefore,  if  M0  is  not  set.  it  is  now  set  to  1 (lines  1861-1865). 


For  P1BDIPHRASEPRESENT,  it  has  to  insure  that  M will  not  be.  000.  If  M 
has  a value  other  than  000  (line  1875)  then  there  is  nothing  to  be  done.  If 
however,  M = 000  (line  1875)  and  F1ELD(16),  FiELD(17),  and  FIELD(18) 
are  FF  (line  1877)  indicating  that  M has  been  set  to  000  by  previous  phrases, 
then  an  error  message  is  printed  (Ones  1878-1882). 

If  M = 000  and  not  all  of  F1ELDU6),  FIELD(17),  and  FIELD(IS)  are  FF, 
then  Mj  or  M0  or  both  are  not  set.  (Since  the  default  for  Y.U  is  it  could 
not  be  0 without  having  been  set).  Therefore,  if  FIELD  (17)  is  not  FF  (lines 
1884)  then  M2  is  set  to  0 (lines  1885-1888),  otherwise  M0  is  set  to  0 (lines 
1889-1892). 

5.1.1.2.3.4.4.5  Printing  and  Output  of  the  Translated  Microword 

'I...  microword  is  printed  and  written  to  the  binary  output  flic  !y  a call  to 
PRi  NT  ROUT  I NE  (line  1896). 


PL/M-80  COMPILER 


Q-80  M I CROPROGRRM  ASSEMBLER 


IS  OCT  77 


PAGE 


1 


I SIS- 1 1 PL/M— 80  VS  O COMPILATION  OF  MODULE  MICRO/ 

OBJECT  MODULE  PLACED  IN  FI  MICRO/.  OBJ 

COMPILER  INVOKED  BY  PLMSQ  FI  MICRO/.  PLM  DATE <18  OCT  ?7> 


♦PR  I NT  < LP  : > F'AGEW  I DTH<  SO  ) T I TLE  < •'  Q-SO  M I CROPROGRRM  ASSEMBLER ' > 
1 MICRO/.  DO; 


♦ I NCLUDE < I NCLUD.  DCL > 


2 

1 

= 

OPEN 

PROCEDURE  < AFTFTR,  FNPTR,  RCCCODE, ECHOAFT, STATUS)  EXTERNAL; 

3 

2 

= 

DECLARE <RFTPTR,  FNPTR,  RCCCODE,  ECHOAFT,  STATUS > ADDRESS; 

4 

2 

= 

END  OPEN; 

5 

1 

= 

CLOSE 

PROCEDURE (AFT,  STATUS > EXTERNAL; 

6 

£. 

= 

DECLARE < AFT,  STATUS!:*  ADDRESS; 

7 

2 

= 

END  CLOSE; 

S 

1 

= 

READ  : 

PROCEDURE < AFT , BUFPTR,  LENGTH,  COUNTPTR, STATUS > EXTERNAL; 

9 

o 

c. 

= 

DECLARE < AFT,  BUFPTR,  LENGTH,  COUNTPTR, STATUS)  ADDRESS; 

10 

2 

= 

END  READ; 

11 

1 

= 

WRITE: 

PROCEDURE < AFT,  BUFPTR,  LENGTH, STATUS)  EXTERNAL; 

12 

= 

DECLARE*' AFT,  BUFPTR,  LENGTH,  STATUS)  ADDRESS; 

12 

2 

= 

END  WRITE; 

14 

1 

= 

SEEK  : 

PROCEDURE < AFT,  OPER,  BLOCKNOPTR, BVTENOPTR, STATUS)  EXTERNAL 

15 

2 

= 

DECLARE < AFT,  OPER,  BLOCKNOPTR,  BVTENOPTR,  STATUS)  ADDRESS; 

16 

■•n 

c_ 

= 

END  SEEK; 

17 

1 

= 

DELETE . 

PROCEDURE < AFT,  STATUS)  EXTERNAL; 

IS 

2 

= 

DECLARE < AFT,  STATUS)  ADDRESS; 

IS 

2 

= 

END  DELETE; 

20 

1 

ERROR 

PROCEDURE < ERRNO,  STATUS)  EXTERNAL; 

21 

2 

= 

DECLARE < ERRNO,  STATUS)  ADDRESS; 

22 

2 

= 

END  ERROR; 

23 

1 

= 

EXIT: 

PROCEDURE  EXTERNAL; 

24 

2 

= 

END  EXIT; 

25 

1 

S 

ALPHA : 

PROCEDURE < AFT,  LENGTH,  BUFPTR)  EXTERNAL; 

26 

2 

= 

DECLARE*' AFT,  LENGTH,  BUFPTR)  ADDRESS; 

27 

2 

= 

END  ALPHA; 

28 

1 

= 

BINARY. 

PROCEDURE ( AFT , LENGTH, BITE)  EXTERNAL; 

29 

2 

= 

DECLARE  AFT  ADDRESS,  (LENGTH, BITE)  BYTE; 

30 

2 

= 

END  BINARY; 

3J 

1 

= 

HEX: 

PROCEDURE < AFT,  LENGTH,  BUFPTR)  EXTERNAL; 

3l 

2 

= 

DECLARE (AFT,  LENGTH,  BUFPTR)  ADDRESS; 

33 

2 

= 

END  HEX; 

34 

1 

= 

INTEG: 

PROCEDURE (AFT,  BITE)  EXTERNAL; 

35 

2 

= 

DECLARE  AFT  ADDRESS,  BITE  BYTE; 

36 

2 

= 

END  INTEG; 

37 

1 

= 

INTEGD: 

PROCEDURE (AFT,  TWOBITES)  EXTERNAL; 

38 

2 

= 

DECLARE (AFT,  TWOBITES)  ADDRESS; 

39 

2 

= 

END  INTEGD; 

40 

1 

= 

PAGE  : 

PROCEDURE ( AFT)  EXTERNAL; 

41 

2 

= 

DECLARE  AFT  ADDRESS; 

42 

= 

END  PAGE. 

43 

1 

= 

PPAGE 

PROCEDURE (AFT)  EXTERNAL; 

44 

2 

= 

DECLARE  AFT  ADDRESS; 

45 

= 

END  PPAGE; 

46 

1 

= 

SKIP: 

PROCEDURE ( AF  T ) EXTERNAL; 

47 

2 

= 

DECLARE (AFT)  ADDRESS; 

48 

2 

= 

END  SKIP; 
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49 

1 

= 

SPACE : 

PROCEDURE  < AFT..  LENGTH > EXTERNAL.. 

50 

2 

= 

DECLARED  AFT..  LENGTH > ADDRESS, 

51 

C_ 

= 

END  SPACE, 

52 

1 

= 

EQUAL : 

PROCEDURE C PI,  P2,  L>  BYTE  EXTERNAL.' 

Cj*> 

2 

= 

DECLARE  C PI,  P2>  ADDRESS,  L BYTE.' 

54 

2 

= 

END  EQUAL; 

55 

1 

= 

SETS  IT 

PROCEDURE <P,  I , L V > EXTERNAL, 

56 

2 

= 

DECLARE  P ADDRESS,  U,  L, V>  BYTE, 

57 

= 

END  SETBIT; 

co 

i 

= 

EQUBIT 

PROCEDURE <P, I, L, V)  BYTE  EXTERNAL; 

59 

V 

= 

DECLARE  P ADDRESS,  <I,L,  V>  BYTE; 

60 

2 

= 

END  EQUBIT; 

PL/H-8-0  COMPILER 


0-80  MICROPROGRAM  ASSEMBLEF 


PAGE  3 


18  O'" 


REJECT 

4 4.4:4  4.  4;:»  4:4  4:4..*: 4 4 4.4: 4- 4- 4 4:.*  *■  4: 4: 4 4 4 4 *,4.4.4  4 4 4.-  4 

/** 

DECLARATION  OF  PUBLIC  VARIABLES  AND  Ft-'.  . 

/* 

/*4.4:*.-**4.**.4  4 1-4  4-4  4 4 4 .444:4  T .4.t.t*4444-  4.4  4 4 4 4 4 4.  4-4  4 i-  4 . 


4-  4:4  4 4 4: 4*4-4  +/ 

*/ 

W 

*/ 

. 4 *:4:  -4  4.44  4 4:/ 


DECLARE  ‘ SI..  BO.-  LP ) ADDRESS  PUBLIC* 

KB  ADDRESS  PUBLIC  DATA - 1 > , 

CRT  ADDRESS  PUBLIC  DATA- Or. 

DECLARE  CR  BVTE  PUBLIC  DATA<ODH>, 

DECLARE  LF  BVTE  PUBLIC  DAT  A < @AH  . 

DECLARE  TAB  BVTE  PUBLIC  DATA  'SH>. 

DECLARE  E BVTE  PUBLIC; 

DECLARE  ENDSVMBTAB  ADDRESS  PUBLIC; 

DECL ARE  F I RSTAVA I LADDR  ADDRESS  FUEL  IT 
DECLARE  PAGENO  ADDRESS  PUBLIC.- 
DECLARE  LINENO  BVTE  PUBLIC 
HEADER  FPOCEDUF  -Si-  PlJBLIC 
DECLARE  l-i  BVTE; 

IF  SW  THEN  CALL  PPRGECLP:- - 
EL  7 7 CALL  PAGE- LP); 

CALL  ALPhn-  LP  .-20-  < OEH,.  ' . i.c  } ■ 

CALL  SKIPc LP> • 

CALL  SKIP- LP > ; 

CALL  ALPHA ‘LF*  30  C-ZP 

0—80  M I CRUPRuGPAM  AS  - - 
CALL  SKIF  <LP>.- 
CALL  SPACE <LP*  ?®> . 

CALL  ALPHATLP.-  4.  . < ‘FAGS  } >; 

CALL  I N TEGD -CLP,  F'AGEN 7 - 
CALL  SKIF-'LP:;; 

CALL  ALPHACLP.-  41.  . <0EH.-  " 

CALL  SKIP-:LP>; 

CALL  SKIPCLP:-; 

LINENO  = 5; 

PAGENO  = PAGENO  + X; 

ENT-  HEADER; 

EOL  PROCEDURE  PUBLIC- 

LINENO  = LINENO  + i.- 
CALL  SKIP  -LP.:-.: 

IF  LINENO  <=  61  THEN  RETURN.- 

ELSE  CALL  HEADER  : 

END  EOL- 

F-ASS1  PROCEDURE  EXTERNAL; 

END  PASS1- 

PASS2  PROCEDURE  EXTERNAL : 

END  PASS2; 
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AD-A063  004  OUESTRON  CORP  SAN  DIEGO  CALIF  F/G  9/2 

radiation  hardened  microprocessor.  VOLUME  II. (U) 

MAY  78  V V NICKEL*  P A ROSENBERG  F33615-77-C-1001 


~ CF'FOGPAM  ASSEMBLE-' 


+ + + 4 f + + +■.■+:.*■  .-ttt  + 1 »«., 

'! AGUE  ACTIVITIES: 


- DIALOG  WITH  COWS 

- OPEN  SOURCE  FILE 

- OPEN  BINARY  FILE 

- OPEN  LINEAR INTER 


, t:*  t * f t 


i©2 

103 

' L AF'E  LINE<256>  BYTE; 

.■I CLARE  FW<15>  BYTE,  /*  Ft. 

104 

2 

_ARE  LENGTH  ADDRESS; 

105 

c. 

. ARE  L I NEPTR,  FNF'TR,  I > BY 

106 

r‘ CLARE  < STATUS..  ST,  DATEFlFT> 

107 

.CLARE  DATE < 11 > BYTE; 

, __ 

REMAINDER  OF  COMMAND  L 
READ  < KB,  . LINE,  255,  . LENG 

109 

2 

LENGTH=2 

ill 

THEN  DO;  /*  PROM 

CALL  ALPHA < CRT, 

112 

- 

CALL  READ  ■'KB,  . L 

113 

3 

IF  LENGTH=2  THE 

115 

END; 

116 

_ 

IGNORE  LEADING  BLANKS  */ 

LI NEPTR  = ©; 

117 

2 

DO  WHILE  L I NE < L I NEPTR > = ' ') 

118 

*> 

LI NEPTR  = LI NEPTR  + 1; 

119 

2 

END; 

120 

2 

COPY  FILENAME  FROM  LINE  TO 
FNPTR  = O; 

121 

2 

DO  WHILE  LINE<LINEPTR><>"  ' 

12C- 

3 

FN< FNPTR > = LINE<LINEPTR>; 

123 

LI NEPTR  = LI NEPTR  + 1; 

124 

3 

FNPTR  = FNPTR  + 1; 

125 

END; 

126 

. k FILL  IN  REMAINDER  OF  FN  WIT 
DO  I = FNPTR  TO  14; 

127 

3 

Ft-K  I > = ' '; 

128 

3 

END; 

120 

/*  OPEN  SOURCE  FILE  AND  CHECK 
■ ALL  OPENC  SI,  . FN,  1,  0,  . STATL 

130 

o 

TF  STATUS-4  OR  STATUS-5  OR  S 

132 

3 

THEN  DO; 

CALL  ALPHA  (.  CRT, 

133 

3 

CALL  ERROR <STAT 

134 

3 

CALL  EXIT; 

135 

3 

END; 
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138  3 

139  3 

140  3 

141  3 


IF  STATUS=13 

THEN  DO; 

CALL  ALPHA < CRT, 20,  . C'FILE  DOES  NOT  EXIST  '3 
CALL  ERROR < STATUS,  .ST); 

CALL  EXIT; 

END; 

/*  OPEN  : LP : FILE,  PRINT  HEADER,  FILENAME  AND  DATE.  *> 

CALL  OPENC.  LP,  . < " : LP  : '),  2,  0,  . STATUS); 

PAGENO  = 1; 

CALL  HEADER1' 1); 

CALL  SPACE CLP,  8); 

CALL  ALPHA CLP,  14, . FN); 

CALL  SPACE CLP,  20); 

CALL  OPENC.  OATEAFT,  . C 'DATE  ' ), 1, 0,  . STATUS); 

CALL  READ C DATE AFT,  . DATE, 11,  . LENGTH,  . STATUS); 

CALL  CLOSE C DATEAFT,  . STATUS); 

CALL  ALPHA CLP,  11,  . DATE); 

CALL  EOL, 

CALL  EOL; 

CALL  ALPHA CLP,  41,  . COEH,  " ' , 


CALL  EOL; 

CALL  EOL; 

/*  CHANGE  FILE  EXTENSION  TO  . BIN  */ 

FNPTR  = 1; 

DO  WHILE  FNC  FNPTR)  O'.  ' AND  FNC FNPTR )<>'  '; 
FNPTR  = FNPTR  + 1; 

END; 

FNC  FNPTR  ) = 

FNCFNPTR+1)  = 'B'i 
FNCFNPTR+2)  = 'l'i 
FNCFNPTR+3)  = 'N'; 

FNCFNPTR+4)  = ' 

/*  OPEN  BINARV  MICROPROGRAM  FILE  */ 

CALL  OPENC.  BO,  . FN,  3,  0,  . STATUS); 

END; 


168  1 

169  1 

170  1 


CALL  PASS1; 
CALL  PASS2; 
END  MICROX; 


/*  BUILD  SYMBOL  TABLE  */ 
/*  BUILD  BINARY  FILE  */ 


MODULE  I NFORMAT I ON . 


CODE  AREA  SIZE  = 03FEH  1022D 

VARIABLE  AREA  SIZE  = 0134H  308D 

MAXIMUM  STACK  SIZE  = O0O8H  8D 

214  LINES  READ 
0 PROGRAM  EFRORCS) 


END  OF  PL/M-80  COMPILATION 


PL/M-80  COMPILER  PASS  I OF  0-80  MICROPROGRAM  ASSEMBLER  25  OCT  77  PAGE  1 


ISIS-II  PL/M-80  V3.  O COMPILATION  OF  MODULE  MICR01 
OBJECT  MODULE  PLACED  IN  : FI : MICR01.  OB J 

COMPILER  INVOKED  BY.  PLMSO  : FA : MICR01.  PLM  DATE <25  OCT  77> 


1 

2 1 

3 2 

4 2 

5 1 

6 2 

7 2 

8 1 

9 2 

10  2 
11  1 
12  2 

13  2 

14  1 

15  2 

16  2 

17  1 

18  2 

19  2 

20  1 
21  2 
22  2 

23  1 

24  2 


♦PRINT < : LP : ) PAGEWIDTH<80> 

♦TITLE< 'PASS  I OF  0-80  MICROPROGRAM  ASSEMBLER') 

MICR01 : DO; 

♦ INCLUDE< INCI.UD.  DCL) 

OPEN : PROCEDURE <AFTPTR,  FNPTR,  ACCCODE, ECHOAFT,  STATUS)  EXTERNAL; 

DECLARE < AFTPTR, FNPTR,  ACCCODE, ECHOAFT,  STATUS)  ADDRESS; 
END  OPEN; 

CLOSE:  PROCEDURE < AFT,  STATUS)  EXTERNAL; 

DECLARE < AFT,  STATUS)  ADDRESS; 

END  CLOSE; 

READ : PROCEDURE < AFT,  BUFPTR,  LENGTH,  COUNTPTR,  STATUS)  EXTERNAL; 

DECLARE < AFT,  BUFPTR,  LENGTH, COUNTPTR, STATUS)  ADDRESS; 

END  READ; 

WRITE:  PROCEDURE < AFT,  BUFPTR,  LENGTH,  STATUS)  EXTERNAL, 

DECLARE < AFT,  BUFPTR,  LENGTH,  STATUS)  ADDRESS; 

END  WRITE; 

SEEK : PROCEDURE < AFT,  OPER,  BLOCKNOPTR,  BVTENOPTR,  STATUS)  EXTERNAL; 

DECLARE < AFT,  OPER,  BLOCKNOPTR,  BVTENOPTR,  STATUS)  ADDRESS; 
END  SEEK; 

DELETE:  PROCEDURE < AFT,  STATUS)  EXTERNAL; 

DECLARE < AFT,  STATUS)  ADDRESS; 

END  DELETE; 

ERROR:  PROCEDURE <ERRNO,  STATUS)  EXTERNAL; 

DECLARE <ERRNO,  STATUS)  ADDRESS; 

END  ERROR, 

EXIT:  PROCEDURE  EXTERNAL; 

END  EXIT; 


25  1 

26  2 

27  2 

28  1 

29  2 

30  2 

31  1 

32  2 

33  2 

24  1 

35  2 

36  2 

37  1 

38  2 

39  2 

40  1 

41  2 

42  2 

43  1 

44  2 

45  2 

46  1 

47  2 


ALPHA : 


BINARY: 


HEX: 


INTEG: 


INTEGD : 


PAGE  : 


PPAGE : 


SKIP 


PROCEDURE < AFT,  LENGTH,  BUFPTR)  EXTERNAL; 

DECLARE < AFT,  LENGTH,  BUFPTR)  ADDRESS; 

END  ALPHA; 

PROCEDURE < AFT,  LENGTH,  BITE)  EXTERNAL; 

DECLARE  AFT  ADDRESS,  < LENGTH,  BITE)  BYTE; 
END  BINARY; 

PROCEDURE < AFT,  LENGTH,  BUFPTR)  EXTERNAL; 

DECLARE < AFT,  LENGTH,  BUFPTR)  ADDRESS; 

END  HEX; 

PROCEDURE < AFT,  BITE)  EXTERNAL; 

DECLARE  AFT  ADDRESS,  BITE  BYTE; 

END  INTEG; 

PROCEDURE < AFT,  TWOBITES)  EXTERNAL; 

DECLARE < AFT,  TWOBITES)  ADDRESS; 

END  INTEGD; 

PROCEDURE < AFT ) EXTERNAL; 

DECLARE  AFT  ADDRESS, 

END  PAGE; 

PROCEDURE < AF  T ) EXTERNAL; 

DECLARE  AFT  ADDRESS; 

END  PPAGE; 

PROCEDURE < AFT ) EXTERNAL; 

DECL APE < AFT)  ADDRESS; 


-89- 
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48 

= 

END  SKIP; 

49 

i 

= 

SPACE  : 

PROCEDURE < AFT..  LENGTH  > EXTERNAL, 

5© 

Cl 

- 

DECLARE < AFT,  LENGTH > ADDRESS; 

51 

2 

= 

END  SPACE; 

52 

1 

— 

EQUAL 

PROCEDURE FI,  P2,  L>  BYTE  EXTERNAL; 

53 

= 

DECLARE < PI, P2>  ADDRESS,  L BYTE; 

54 

END  EQUAL; 

55 

i 

=5 

SETBIT: 

PROCEDURE', P,  I,  L,  V>  EXTERNAL, 

56 

o 

= 

DECLARE  P ADDRESS,  <I,L,  V>  BYTE. 

5? 

cL 

= 

END  SETBIT; 

58 

l 

= 

EQIJBIT : 

PROCEDURE CP,  I,  L, V>  BYTE  EXTERNAL; 

59 

2 

= 

DECLARE  P ADDRESS,  'I , L , V BYTE, 

60 

2 

= 

END  EQIJBIT; 
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REJECT 

/*  */ 

/*  DECLARATION  OF  EXTERNAL  VARIABLES  AND  PROCEDURES  */ 

/*  *>/ 

/ * * 4 + 4-  4 - 44  4:  >■  4 + 4 4:  4:  4-4: 4-4: 4:  4: 4:  4 4:  4:  :4  4: 4: 4 4: 4: 4-  :4  4' 4 4 4 4: 4 4: 4:4 4 44: 4. 4 4- 4: 4: 4 4- 4: 4 4 4: 4 4 4 4: 4 4'4  4* / 


61 

1 

DECLARE  <SI,  BO,  LF,  KB,  CRT>  ADDRESS  EXTERNAL 

62 

1 

DECLARE  <CR,  LF,  TRB>  BVTE  EXTERNAL; 

63 

1 

DECLARE  E BVTE  EXTERNAL; 

64 

1 

DECLARE  ENDSVHBTRB  ADDRESS  EXTERNAL; 

65 

1 

DECLARE  F I RSTAVA I L ADDR  ADDRESS  EXTERNAL; 

66 

1 

DECLARE  PAGENO  ADDRESS  EXTERNAL; 

6? 

1 

DECLARE  LINENO  BVTE  EXTERNAL; 

68 

1 

HEADER : PROCEDURE < SW > EXTERNAL; 

69 

2 

DECLARE  SW  BVTE; 

70 

2 

END  HEADER; 

71 

1 

EOL : PROCEDURE  EXTERNAL; 

72 

£■ 

END  EOL; 
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REJECT 

/*+* **+***  **  ****4:.**  ifc******  if***:***  .****/ 


/*  +/ 

/*  LABEL  DECODING  AND  RDDRESS  */ 
/*  ASSIGNMENT  BLOCK  +/ 

/*  */ 


/ 4:  >f  jf:  >f<  ♦ 4c  j+o+c  Jf:  jf:  >+c  >f:  >♦«  % >fc  jft  4*.  ♦ ♦ >fe  >f  if;  >fc  »fc  Jf.  *>♦:  4: 4c  4c  ♦ * ♦ ♦ 


73 

1 

PRSS1 : 

PROCEDURE  PUBLIC; 

74 

2 

DECLARE 

BUFF < 256 > BVTE; 

/*  1 BLOCK  AS  READ  FROM  SI  */ 

75 

2 

DECLARE 

BUFFPTR  BVTE; 

/*  POINTER  TO  BUFF  */ 

76 

2 

DECLARE 

CODE < 256 > BVTE; 

/*  1 MICROWORD  W/O  BLANKS  */ 

77 

2 

DECLARE 

CODEPTR  BVTE; 

/*  POINTER  TO  CODE  *7 

78 

2 

DECLARE 

EOF  BVTE; 

79 

2 

DECLARE 

LABL<6>  BVTE; 

/*  ALPHANUMERIC  LABEL  */ 

80 

2 

DECLARE 

SUFFIX  BVTE; 

/*  BINARV  LABEL  SUFFIX  */ 

81 

2 

DECLARE 

SUFFIXLENGTH  BVTE;  /*  NUMBER  OF  BITS  IN  SUFFIX  */ 

82 

2 

DECLARE 

SVMBTABPTR  ADDRESS; 

83 

2 

DECLARE 

STATUS  ADDRESS; 

84 

2 

BUFFADV 

: PROCEDURE; 

85 

3 

DECLARE  <NCHAR,  : 

5TATUS)  ADDRESS; 

86 

3 

BUFFPTR  = BUFFPTR  + 1; 

87 

3 

IF  BUFFPTR=0 

/*  I.  E.  =256  */ 

THEN  DO; 

89 

4 

CALL  READ<SI,  . BUFF,  256,  . NCHAR,  . STATUS;; 

90 

4 

IF  NCHAR=0 

THEN 

DO; 

92 

5 

CALL  EOL; 

93 

5 

CALL  ALPHA  CLP,  36,  . <'+*■*  MISSING', 

' C END  3.  ASSEMBLV  ABORTED.  '>  >) 

94 

5 

CALL  EOL; 

95 

5 

CALL  PAGE<LP>; 

96 

5 

CALL  PAGE<LP>; 

97 

5 

CALL  EXIT; 

98 

5 

END; 

99 

4 

BUFFPTR 

= 0; 

100 

4 

END; 

101 

3 

END  BUFFADV; 

■92- 
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♦EJECT 


102 

2 

/*  EXTRACTS  AMD  COMPRESSES  CODE  FOR  1 MICROWORD  */ 
/*  SETS  E0F  FLAG  IF  A ' 3 '-CHARACTER  IS  ENCOUNTERED.  */ 
/*  RESETS  CODEPTR.  */ 

NEWWORD : PROCEDURE; 

103 

3 

DECLARE  < I .>  CHAR  > BYTE; 

104 

3 

CODEADV : PROCEDURE; 

105 

4 

IF  C0DEPTR<255 

107 

4 

THEN  CODEPTR  = CODEPTR  + 1; 
END  CODEADV; 

108 

3 

DO  I = 0 TO  255; 

109 

4 

CODEC  I > = ' '; 

110 

4 

END; 

111 

3 

CODEPTR  = 0; 

112 

3 

CHAR  = 00H; 

113 

3 

DO  WHILE  CHARO ' ; '; 

114 

4 

CHAR  = BUFFCBUFFPTR>; 

115 

4 

CALL  BUFFADV; 

116 

4 

IF  CHAR=CR 

118 

5 

THEN  DO; 

IF  buffcbuffptr>=lf  THEN  CALL 

BUFFADV. 

120 

5 

END; 

121 

4 

IF  CHAR= ' * ' OR  CHAR=';  ' 

123 

5 

THEN  DO  WHILE  BUFF  CBUFFPTR)  OCR; 
CALL  BUFFADV; 

124 

5 

END; 

125 

4 

IF  CHAR=';  ' 

127 

5 

THEN  DO; 

CALL  BUFFADV;  /*  STEP  OVER  CR. 

*/ 

128 

5 

IF  BUFF C BUFFPTR > =LF  THEN  CALL 

BUFFADV j 

130 

5 

CODEC  CODEPTR  > * 

131 

5 

CALL  CODEADV; 

132 

5 

END; 

133 

4 

IF  CHAROCR  AND  CHAROTA6  AND  CHARO' 

✓ 

135 

5 

AND  CHARO'*'  AND  CHARO'; 

THEN  DO; 

CODEC CODEPTR > * CHAR; 

✓ 

136 

5 

CALL  CODEADV; 

137 

C 

END; 

133 

4 

IF  CHAR=' Y THEN  DO; 

140 

5 

E0F  = 0FFH; 

141 

5 

RETURN; 

142 

5 

END; 

143 

4 

END; 

144 

3 

CODEPTR  = 0; 

145 

3 

END  NEWWORD; 

-93- 
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REJECT 

/*  EXTRACTS  LABEL  FROM  MI CROWDED  IN  ARRAY  CODE  */ 


146  2 

14?  3 

148  3 

148  3 

150  3 

151  4 

152  4 

153  3 

155  4 

156  4 

157  4 

158  4 

158  3 

161  4 

162  4 

163  4 

164  4 

165  4 

166  4 

167  3 

168  3 

168  4 


171  5 

172  5 

173  5 

174  5 

175  5 

176  5 

177  5 

178  4 

178  4 

ISO  4 
181  3 

183  4 

184  4 

185  4 

186  4 

187  3 

1S8  4 

130  4 

131  4 

132  4 

133  4 

184  4 

135  4 


EXTRACTLABEL  PROCEDURE; 

DECLARE  CI,J,  L>  BYTE. 

CALL  MOVE <8,  . C'  >,  . LABLX 

L = 0; 

DO  WHILE  CC0DECL>O'  : O AND  <L<1S>; 

L = L + 1; 

END; 

IF  CL=1S>  AND  CC0DEC17>O' : '> 

THEN  DO; 

SUFFIX  = 0; 

SUFFIXLENGTH  = 0; 

RETURN; 

END; 

IF  CCODECOX'AO  OR  CCODEC0»  'Z ' > 

THEN  DO; 

E = E + 1; 

CALL  ALPHA-; LP,  16,  . C'***  LABEL  FIELD  OX 
CALL  ALPHA  CLP,  L,  . CODE.-; 

CALL  ALPHA CLP, 46,  . C'  DOES  NOT  BEGIN  ", 
'WITH  AN  ALPHABETIC  CHARACTEP.  OX 
CALL  EOL; 

END; 

I = 0; 

DO  WHILE  < CODEC  I ><>'  CO  AND  (KL)  AND  (KS), 

IF  C C CODE C I >< ' A O OR  < CODEC  I»'20>  AND 
C C CODEC  I X'0O  OR  C CODE C I > > ' 3 O ) 

THEN  DO; 

E = E + 1; 

CALL  ALPHA  CLP,  16,  . C ' ■■+**  LABEL  FIELD  OX 
CODEC  I > = '?'; 

CALL  ALPHA  CLP,  L,  . CODE!-; 

CALL  ALPHA CLP, 37,  . C'  CONTAINS  NON-  ', 
'ALPHANUMERIC  CHARACTER.  OX- 
CALL  EOL; 

END; 

LABL  C I > = CODEC  IX 
1 = 1+1; 

END; 

IF  CODEC I>=' : ' THEN  DO; 

SUFFIX  = 0; 

SUFFIXLENGTH  = 0. 

RETURN; 

END; 

IF  < CODE C I > O'  C ' > OR  C CODE CL-1  1 0 ' > ' > 

THEN  DO; 

E = E + 1, 

CALL  ALPHA CLP, 16,  C'***  LABEL  FIELD  OX 

CALL  ALPHA  CLP,  L-  . CODEX 

CALL  ALPHA CLP, 42,  . C ' DOES  NOT  HAVE  ', 

'PARANTHESIS  WHERE  EXPECTED.  >X 

CALL  EOL; 

SUFFIX  = 0FFH. 

SUFFIXLENGTH  = @FFH, 


-94- 
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19o  4 

197  4 

198  3 
2 

200  3 

201  4 

2G3  5 

204  5 

205  5 


£06 

£07 

20S 

209 

210 
211 
212 

213 

214 
21“i 


er 

4 


217  4 

21S  3 

219  3 


RETURN; 

END; 

I — I + 1;  /+  SI  EP  OVER  C *•*/ 

L L — 2'  /*  STEP  OVER  > : *s 

DO  J = I TO  L, 

IF  >.CODE-  JVO'O  > AND  < CODEC  J><>"1' > 

THEN  DO; 

CALL  ALPHA CLP,  16,  . i!  ■'%*>♦:  LABEL  FIELD  ) ) ; 
CALL  ALPHA .'  LP.  L+2,  CODE); 

CALL  ALPHA  CLP..  4C,  <'  CONTAINS  CHARACTER 
OTHER  THAN  0 OR  1 IN  SUFFIX.  ')>; 

• CALL  EGL; 

SUFFIX  = OFFH; 

SUFF I XLENGTH  = OFFH 
RETURN, 

END; 

END; 

SUFF I XLENGTH  = L - I + 1; 

SUFFIX  = 0; 

O'  T = 0 TO  SUFFIHLENGTH-1; 

IF  CODE • I + J ) =■ ' 1 ' 

THEN  CALL  SETBITC.  SUFFIX,  S-SUFFIXLEHGTH+J,  1,  1B>; 

END; 

RETURN; 

END  EXTRACTLABEL; 


■95- 
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♦EJECT 


220 

2 

E = 0; 

221 

2 

SVMBTABPTR  = 0; 

222 

2 

E0F  =;  0> 

223 

2 

BUFFPTR  = 255; 

224 

2 

CALL  BUFFADV; 

PAGE  8 
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225 

226 

227 

228 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 


4 

4 

4 

4 

4 

3 

3 

3 

3 

3 

•> 


/**********:*:+:*********:*****/ 

/*  BUILD  SYMBOL  TABLE  */ 

/'tf:**:*:*:;*::********:****:**:*:*’*:**'.*:,/ 

CALL  NEWWORD; 

DO  WHILE  NOT  EOF.: 

CALL  EXTRACTLABEL; 

IF  C.  MEMORY+SVMBTRBPTR ) > 0FC56H 
THEN  DO.: 

CALL  ALPHA CLP, 41,  . <'***♦*  FATAL  ERROR: 

' TABLE  OVERFLOW.  '>>; 

CALL  EOL; 

CALL  PAGE CLP); 

CALL  PAGE CLP); 

CALL  EXIT; 

END.: 

CALL  MOVE C 8,  . LABL,  . MEMORY+SVMBTRBPTR 
MEMORY  CSVMBTABPTR+S>  = SUFFIXLENGTH; 

MEMORY  C SVMBT ABPTR+9  ) = SUFFIX; 

SYMBTABPTR  = SVMBTABPTR  + 12; 

CALL  NEWWORD; 

END; 

ENDSVMBTAB  = SYMBTABPTR  - 1; 

^ 4: 4: * 4:  * 4:  4: 4:  * * *:  4: 4: ’tV* 

/*  ABORT  IF  A NV  ERRORS  SO  FAR  ♦/ 


SYMBOL 


243 

2 

IF  E > 0 

THEN  DO; 

245 

3 

CALL 

ALPHA  CLP,  47,.  <•'+++** 

ASSEMBLY  ABORTED 

•'BECAUSE  OF  LABEL 

ERRORS.  ')); 

246 

3 

CALL 

EOL; 

247 

3 

CALL 

PAGE CLP); 

248 

3 

CALL 

PAGE  CLP); 

249 

3 

CALL 

EXIT; 

250 

3 

END; 

PL/M-8G  COMPILER 
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1 EJECT 


/.+  if: *****. ****  * «:*  .«:l* 

/*  CHECK  CORREC 

/*****>*: •*: * -T:  t-  M •+  X :♦•  ;<• 

DO; 

DECLARE  a,  ,T>  ADDRESS; 


:+:  **:*::♦:  rti  *:+.**  4;:*:  * + 4:  **»*:  *::**  ***/ 

TNESS  OF  SVM80L  TABLE  •*/ 

#**;#*!*!•♦!*  * ■*:  . 4'  C - •*:  : + **»:*./ 


DEC 


LORE  <K.  L;  M;  N>  BYTE; 


DECLARE  BLSZERR  BYTE; 

I = ©; 

BLSZERR  = G; 

DO  WHILE  I < ENDSVMBTAB; 

M = MEMORY < I +3 > ; /*  SUFFIX  LENGTH  */ 

IF  (MO0)  AND  'MOD  AND  <M<>3>  AND  CM<D4>  AND  <f!07) 
THEN  DO; 

E = E + 1; 

BLSZERR  = BLSZERR  + 1; 

CALL  ALPHA  CLP,  66.  . <'***  ILLEGAL  SUFFIXLENGTH 
"OR  ILLEGAL  SUFFIX  USE  IN  BLOCK  LABELLED:  'V 


CALL  ALPHA  CLF'.  EL 
CALL  EOL; 

END; 


IF  M 


0 


MEMORV+I >; 


# OF  WORDS  IN  BLOCK  */ 


THEN  L = SHLC01H.  M>; 

ELSE  L = G1H; 

J = I + 12; 

IF  NOT  EQUAL C.  MEMORY-:  I . <"  0.8) 

THEN  DO  WHILE  EQUAL C MEMORY < I MEMORY < J>.  8>; 

J = ,T  + 12; 

END; 

IF  CJ-I.V12  O L 
THEN  DO; 

BLSZERR  = BLSZERR  + 1; 

E = E + 1; 

CALL  ALPHA  CLP.  IS..  . <'***  BLOCK  LABELLED  ")); 
CALL  ALPHA CLP.  8.  . MEMORV+I >; 

CALL  ALPHA  CLP.  26.  . IS  TOO  SHORT  OR  TOO'. 

' LONG.  •">>; 

CALL  EOL; 

END; 

ELSE  DO  K = O TO  <L-i>; 

IF  C MEMORY C I +12*K+S > CD  MEMORY C I +S>  > OF: 

C MEMORY C I +12+K+SO  CD  K ; 

THEN  DO; 

BLSZERR  = BLSZERR  + 1; 

E = E + 1; 


23?  6 CALL  ALPHA  CLP.  41. . <■'***  ILLEGAL 

•'SUFFIX  USE  IN  B_OCK  LABELLED  '>>; 
29G  S CALL.  ALPHA <LP.-  8.  . MEMOPv+I ); 

291  6 CALL  EOL; 
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/ ******  4 : * ******  * * * * * * * * * **  * ** **  ****,/ 

/*  BBORT  IF  ANV  ERRORS  SO  FBR  *■/ 

/ * * * 4:.’ *****  **  ****  * ***  **  ****  **  **  * * **  */ 


296  3 

29S  4 

299  4 

20O  4 

301  4 

302  4 

203  4 

304  3 


IF  BLSZERR  > 0 
THEN  DO, 

CALL  ALPHA <LP,  52,  . <"***  ASSEMBLV  ABORTED  ", 
"BECAUSE  OF  SUFFIX  USE  ERRORS.  '»> 

CALL  EOL, 

CALL  FAGECLP); 

CALL  PAGECLF'X; 

CALL  EXIT.- 
END, 

END.; 


PL/M-80  COMPILER  PASS  I OP  Q-80  MICROPROGRAM  ASSEMBLER 
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*4:4:4:  *4  4:***  *4:***  4:  ^t****/ 

/*  COMPRESS  SVMBOL  TR6LE  */ 

/ 3f- 4:  * 4:  **:****:*;*:  ***:>+:***  / 


305 

2 

DO; 

306 

3 

DECLARE  <1. 

307 

3 

DECLARE  K 1 

308 

3 

I,  J = 0; 

309 

3 

DO  WHILE  J 

310 

4 

CALL  MOVE  < 

311 

4 

IF  MEMORY < 
THEN  K 

313 

4 

ELSE  K 

314 

4 

J = J + K 

315 

4 

I = I + 12. 

316 

4 

END; 

317 

3 

ENDSVMBTAB 

318 

3 

END; 
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♦EJECT 


319  2 

320  3 

321  3 

322  3 

323  3 

324  3 

325  4 

327  5 

328  5 

329  5 

330  4 

331  4 

332  3 

333  3 

334  4 

336  5 

337  5 

338  5 

339  4 

340  4 

341  3 

342  3 

343  4 

345  5 

346  5 

347  5 

348  4 

349  4 

350  3 

351  3 

352  4 

354  5 

355  5 

356  5 

357  4 

358  4 

359  3 

360  3 

361  4 

363  5 

364  5 

365  5 

366  4 

367  4 


fiSSIGN  ADDRESSES  */ 

DO; 

DECLARE  ADDR  ADDRESS;  • 

DECLARE  I ADDRESS; 

ADDR  = 0; 

I = 0; 

DO  WHILE  I <=  ENPSVMBTAB; 

IF  MEMORY ( 1+8 > = 7 
THEN  DO; 

CALL  MOVE <2,  . ADDR,  . MEMORY* I +10 >; 
ADDR  = ADDR  + 128; 

END; 

I = I + 12; 

END; 

I = 0; 

DO  WHILE  I <=  ENDSYMBTAB; 

IF  MEMORY< I+8>  = 4 
THEN  DO; 

CALL  MOVE <2,  . ADDR,  . MEMORY* I +10 >; 
ADDR  = ADDR  + 16; 

END; 

I = I + 12; 

END; 

I = 0; 

DO  WHILE  I <=  ENDSYMBTAB; 

IF  MEMORY < 1+8 > = 3 
THEN  DO; 

CALL  MOVE ( 2, . ADDR,  . MEMORV+I+10>; 
ADDR  = ADDR  + 8; 

END; 

I = I + 12; 

END; 

I = 0; 

DO  WHILE  I <=  ENDSYMBTAB; 

IF  MEMORY < 1+8)  = 1 
THEN  DO; 

CALL  MOVE <2,  . ADDR,  . MEMORY* I +10 >; 
ADDR  = ADDR  ♦ 2; 

END; 

1 = 1 + 12; 

END; 

I * 0; 

DO  WHILE  I <=  ENDSYMBTAB; 

IF  MEMORY < I+8>  = 0 
THEN  DO; 

CALL  MOVE <2,  . ADDR,  . MEMORY+I+10); 
ADDR  = ADDR  + 1; 

END; 

1=1+  12; 

END; 
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" 4 •+  4 r ♦ + 4 ff  + * +♦♦/ 

ALLOCATE  SPACE  ON  DISK 


370 

2 ' 

♦ It  I.  - t -f  t.  t .»  , tt  t t + f.t!tt  t t t.  t t t t t.,/ 

DO; 

271 

i/ECLARE  I ADDRESS; 

372 

2 

DECLARE  (K.fU)i  BYTE; 

373 

2 

DECLARE  X'8  BVTE/ 

374 

3 

CALL  MOVE ' A.  . CO-  O..  0/  0/  0/  0 > , . X+2>. 

375 

3 

DO  I * 0 TO  ENDSVMBTAB  BY  12- 

376 

4 

K = MEriORVd+8>. 

377 

4 

I"  K > 0 

379 

4 

THEN  M * SHL'  OIH,  K>; 

ELSE  M = 31H; 

380 

4 

DO  N = 0 TO  M-l.i 

381 

cr 

XCO>  = MEMORY < I -t  10 > OR  N 

2Q2 

5 

X < 1 j * MEMORY  C I +11  ">  ; 

382 

cr 

CALL  AL PHAvEO.  8/  . X>; 

384 

5 

END; 

385 

4 

END; 

286 

2 

END; 

PAGE 
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♦EJECT 

/S*******  ***%>«<**:  4: +%***:*******%/ 

/*  SVMBOL  TABLE  LISTING  */ 

f +1*  + .+  4 44JM4:+-++;-*+4if:f 


387 

2 

DO; 

388 

3 

DECLARE  <11,  12,  13)  ADDRESS; 

289 

3 

DECLARE  L BVTE; 

390 

3 

11  = 0; 

391 

3 

12  = 53  * 12; 

392 

3 

13  = 2 * 53  * 12; 

393 

3 

L = 4; 

394 

3 

DO  WHILE  11  <=  ENDSVMBTAB; 

395 

4 

CALL  SPACE CLP, 2); 

396 

4 

IF  EQUAL < . '),.  MEMORV+U,  8) 

THEN  CALL  ALPHA CLP,  8,  . C'NO  LABEL')); 

398 

4 

ELSE  CALL  ALPHA CLP, 8,  . MEMORV+I1); 

399 

4 

CALL  INTEGDCLP,  MEMORVC 11+8) >; 

4O0 

4 

CALL  SPACE CLP,  2); 

401 

4 

CALL  HEX  CLP,  2,  . MEMORV+I1+11); 

402 

4 

CALL  HEX  CLP,  2,  . MEMORV+I1+10); 

402 

4 

IF  12  <=  ENDSVMBTAB 

THEN  DO; 

405 

5 

CALL  SPACE CLP,  8); 

406 

5 

IF  EQUAL < . <'  '), . MEM0RV+I2,  8) 

THEN  CALL  ALPHA CLP, 8,  . C'NO  LABEL' 

408 

5 

ELSE  CALL  ALPHACLP,  8,  . MEM0RV+I2); 

409 

5 

CALL  INTEGDCLP,  MEMORVC 12+8)); 

410 

5 

CALL  SPACE CLP, 2); 

411 

5 

CALL  HEX  CLP,  2,  . MEM0RV+I2+11); 

412 

5 

CALL  HEX  CLP,  2,  . MEMORV+I2+10); 

413 

5 

END; 

414 

4 

IF  13  <=  ENDSVMBTAB 

THEN  DO; 

416 

5 

CALL  SPACE CLP, 8); 

417 

5 

IF  EQUALC.  C'  '), . MEM0RV+I3, 8) 

THEN  CALL  ALPHACLP,  8,  . C'NO  LABEL' 

419 

5 

ELSE  CALL  ALPHACLP, 3,  . MEMORV+ 13); 

420 

5 

CALL  INTEGDCLP,  MEMORVC 13+8) ); 

421 

5 

CALL  SPACECLP, 2); 

422 

5 

CALL  HEX  CLP, 2, . MEM0RV+I3+11); 

423 

5 

CALL  HEX  CLP,  2,  . MEMORV+I3+10); 

424 

5 

END; 

425 

4 

CALL  EOL; 

426 

4 

L * L + 1; 

427 

4 

IF  L - 57 

THEN  DO; 

429 

5 

L = 0, 

420 

5 

11  = 13  + 12; 

431 

5 

12  = 11  + 57  * 12; 

432 

5 

. 13  = 12  + 57  * 12; 

422 

5 

END; 

424 

4 

ELSE  DO; 

435 

5 

►-4 

II 

M 

H- 

♦ 
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436 

5 

12  = 12  + 12; 

43? 

5 

13  = 13  + 12; 

433 

5 

END; 

439 

4 

END; 

440 

3 

IF  L>0  THEN  CALL  HEADER < 0 ) ; 

442 

3 

END; 

443 

2 

CALL  SEEK<SI,  2,  . <0.  0)/.  <0..  0),  . STATUS); 

444 

2 

CALL  SEEK<BO,  2,  . <0,  0),  . <0.  0).  . STATUS); 

445 

2 

END  PASS1; 

446 

1 

END  MICROl; 

MODULE  I NFQRMAT I ON : 

CODE  AREA  SIZE 

= 0EC1H 

377?D 

VARIABLE  AREA  SIZE 

= 0240H 

576D 

MAXIMUM  STACK  SIZE 

= ©00CH 

12D 

553  LINES  READ 
3 PROGRAM  ERROR < 5 > 

END  OF  PL/M— 80  COMPILATION 


I _ 
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I SIS- 1 1 PL/M-80  V3.  0 COMPILATION  OF  MODULE  MICROS 
OBJECT  MODULE  PLACED  IN  : FI : MICROS.  OBJ 

COMPILER  INVOKED  BV  : PLM8B  : FI : MICROS.  F'LM  DATE(27  OCT  77) 


1 

2 

1 

SPRINT < : LP : > RAGEWIDTHC80) 

*TITLE( 'PASS  II  OF  0-80  MICROPROGRAM  ASSEMBLER') 

MICROS:  DO; 
f I HCLUDE  ( I NCLUD.  DCL  > 

OPEN:  PROCEDURE < AFTPTR,  FNPTR,  ACCCODE,  ECHOAFT,  STATUS)  EXTERNAL; 

3 

2 

DECLARE < AFTPTR, FNPTR,  ACCCODE.  ECHOAFT,  STATUS)  ADDRESS; 

4 

S 

END  OPEN; 

5 

1 

= 

CLOSE : 

PROCEDURE (AFT,  STATUS)  EXTERNAL; 

6 

2 

= 

DECLARE (AFT,  STATUS)  ADDRESS; 

7 

2 

= 

END  CLOSE; 

8 

1 

= 

READ: 

PROCEDURE (AFT,  BUFPTR,  LENGTH,  COUNTPTR,  STATUS)  EXTERNAL, 

9 

2 

= 

DECLARE (AFT, BUFPTR,  LENGTH,  COUNTPTR,  STATUS)  ADDRESS; 

10 

2 

=s 

END  READ; 

11 

1 

= 

WRITE. 

PROCEDURE (AFT,  BUFPTR,  LENGTH,  STATUS)  EXTERNAL; 

12 

2 

=5 

DECLARE (AFT,  BUFPTR,  LENGTH,  STATUS)  ADDRESS; 

13 

2 

= 

END  WRITE; 

14 

1 

= 

SEEK : 

PROCEDURE (AFT, OPER, BLOCKNOPTR,  BVTENOPTR,  STATUS)  EXTERNAL; 

15 

2 

St 

DECLARE (AFT, OPER, BLOCKNOPTR, BVTENOPTR, STATUS)  ADDRESS; 

16 

2 

=S 

END  SEEK; 

17 

1 

= 

DELETE : 

PROCEDURE (AFT,  STATUS)  EXTERNAL; 

18 

2 

= 

DECLARE (AFT,  STATUS)  ADDRESS; 

19 

2 

=5 

END  DELETE; 

20 

1 

= 

ERROR : 

PROCEDURE (ERRNO,  STATUS)  EXTERNAL; 

21 

2 

s 

DECLARE ( ERRNO,  STATUS)  ADDRESS; 

22 

2 

= 

END  ERROR; 

23 

1 

= 

EXIT: 

PROCEDURE  EXTERNAL; 

24 

2 

= 

END  EXIT; 

25 

1 

s 

ALPHA : 

PROCEDURE (AFT,  LENGTH,  BUFPTR)  EXTERNAL; 

26 

2 

s 

DECLARE (AFT,  LENGTH,  BUFPTR)  ADDRESS; 

27 

2 

= 

END  ALPHA; 

28 

1 

s 

BINARY 

PROCEDURE (AFT,  LENGTH,  BITE)  EXTERNAL; 

29 

2 

= 

DECLARE  AFT  ADDRESS,  (LENGTH,  BITE)  BYTE; 

3© 

2 

as 

END  BINARY; 

31 

1 

= 

HEX: 

PROCEDURE (AFT,  LENGTH,  BUFPTR)  EXTERNAL; 

32 

2 

as 

DECLARE (AFT,  LENGTH,  BUFPTR)  ADDRESS; 

33 

2 

s 

END  HEX; 

34 

1 

= 

INTEG: 

PROCEDURE (AFT,  BITE)  EXTERNAL; 

35 

2 

= 

DECLARE  AFT  ADDRESS,  BITE  BYTE; 

36 

2 

= 

END  INTEG; 

37 

1 

INTEGD : 

PROCEDURE (AFT,  TWOBITES)  EXTERNAL; 

38 

2 

= 

DECLARE (AFT,  TWOBITES)  ADDRESS; 

39 

2 

= 

END  INTEGD; 

40 

1 

= 

PAGE: 

PROCEDURE ( AFT ) EXTERNAL, 

41 

2 

=s 

DECLARE  AFT  ADDRESS; 

42 

2 

= 

END  PAGE: 

43 

1 

= 

PPAGE : 

PROCEDURE ( AFT ) EXTERNAL; 

44 

2 

* 

DECLARE  AFT  ADDRESS; 

45 

2 

= 

END  PPAGE; 

46 

1 

= 

SKIP 

PROCEDURE ( AFT ) EXTERNAL; 

47 

2 

= 

DECLARE (AFT)  ADDRESS; 

106- 
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48 

2 

S 

END  SKIP. 

49 

1 

= 

SPACE : 

PROCEDURE < AFT,  LENGTH}  EXTERNAL; 

50 

2 

S 

DECLARE < AFT,  LENGTH}  ADDRESS; 

51 

2 

S 

END  SPACE; 

52 

1 

s 

EQUAL : 

PROCEDURES,  P2,  L>  BVTE  EXTERNAL; 

53 

2 

= 

DECLARES,  P2>  ADDRESS,  L BVTE; 

54 

2 

= 

END  EQUAL; 

55 

1 

s 

SETBIT: 

PROCEDURE <P,  I,  L,  V}  EXTERNAL; 

56 

2 

s 

DECLARE  P ADDRESS,  <I,L,  V}  BVTE; 

5? 

2 

= 

END  SETBIT; 

58 

1 

= 

EQUBIT: 

PROCEDURES  I,  L,  V}  BVTE  EXTERNAL; 

59 

2 

s 

DECLARE  P ADDRESS,  <I,L,  V}  BVTE; 

60 

2 

= 

END  EQUBIT; 

-107- 
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•EJECT 

/****i*:**:>fc>fc*i**>*:  ifc**:**:********:  *:***>*:  i*:********************************/ 
/+  */ 

/*  DECLARATION  OF  EXTERNAL  VARIABLES  AND  PROCEDURES  */ 

/*  */ 

/**>M<lMt******************************************,*t*******’*t’*,*****,*,<'' 


61 

1 

DECLARE  (SI,  BO,  LP,  KB,  CRT > ADDRESS  EXTERNAL. 

62 

1 

DECLARE  (CR,  LF,  TAB>  BVTE  EXTERNAL; 

63 

1 

DECLARE  E BVTE  EXTERNAL; 

64 

1 

DECLARE  ENDSVMBT AB  ADDRESS  EXTERNAL; 

65 

1 

DECLARE  F I RSTAVA I LADDR  ADDRESS  EXTERNAL; 

66 

1 

DECLARE  PAGENO  ADDRESS  EXTERNAL; 

67 

1 

DECLARE  LINENO  BVTE  EXTERNAL; 

68 

1 

HEADER : PROCEDURE ( SU  > EXTERNAL; 

69 

2 

DECLARE  SW  BVTE; 

70 

2 

END  HEADER; 

71 

1 

EOL : PROCEDURE  EXTERNAL; 

72 

2 

END  EOL; 
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REJECT 

^♦s*1  * * ** * 4 4 4 t 4 4 4 4 44  4 44  4 4. 4. 44. 4.4  4 4 4 4 4;  4.4. 4-4444: 44.4  4 44  4 * f ++j+,!*  f+it  4 4 )f  if +*^  jf  4/ 
/*  +/ 

/*  TRANSLATION  OF  MICROCODE  */ 

/*  */ 

^ +44  44-4-4  4 4 4 4 4-4:  4 4 4.4  4 4 4 4 44  4.4  4 4: 4 4 44  4 44  4 44  4 4444444+4  44444444444444444/ 

/****:******DECLARATION  OF  VARIABLES***********/ 


73  1 PASS2:  PROCEDURE  PUBLIC; 

74  2 DECLARE  BUFF  <256>  BVTE;  /*  1 BLOCK  AS  READ  FROM  SI.  */ 

75  2 DECLARE  LINE  < 80 > BVTE;  /*  1 LINE  FOR  LP.  */ 

76  2 DECLARE  CODE  <256>  BVTE;  /*  1 MICROWORD  W/O  BLANKS.  */ 

77  2 DECLARE  PHRASE < 33)  BVTE;  /*  1 PHRASE  */ 

78  2 DECLARE  ADDR  ADDRESS; 

79  2 DECLARE  < BUFFPTR, CODEPTR)  ADDRESS,  LINEPTR  BVTE; 

80  2 DECLARE  P1BD I PHRASEPRESENT  BVTE; 

81  2 DECLARE  P2BREGPHRASEPRESENT  BVTE; 

82  2 DECLARE  DOALCPHRASEPRESENT  BVTE; 

S3  2 DECLARE  NOTAD1  BVTE; 

84  2 DECLARE  I BVTE; 


ro  m 
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/* 


DECLARE  PHVECT < 18>  BVTE;  /*  PHRASE  PRESENCE  FLAGS  */ 
DECLARE  TVPE  BVTE.;  /+  PHRASE  TVPE  */ 

THE  FOLLOWING  TABLE  GIVES  THE  MEANING  OF  'TVPE' 

AND  IS  ALSO  USED  TO  INTERPRET  THE  SUBSCRIPT  FOR  'PHVECT' 

0 = GOTO  - PHRASE, 

1 = REGCR}  - PHRASE, 

2 = PIE:  - PHRASE, 

3 = P2B  - PHRASE, 

4 = DO  - PHRASE, 

5 = ALC  - PHRASE, 

6 = SHIFTER  - PHRASE, 

7 = MXL60UT  - PHRASE, 

8 = MXLIOUT  - PHRASE, 

9 = MXH0OUT  - PHRASE, 

10  = MXHIOUT  - PHRASE, 

11  = CO  - PHRASES, 

12  = MFLAGS  - PHRASE 

13  = COUT  - PHRASE, 

14  = NOLOAD  - PHRASE, 

15  = I/O  - PHRASE, 

18  = GLIA  - PHRASE, 

17  = E - PHRASE, 

18  = INVALID  PHRASE, 

19  = END  OF  MICROWORD, 

20  = UNRECOGNIZED  PHRASE 


■no- 
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REJECT 

87  2 DECLARE  FIELD  < 22>  BYTE;  /♦  FIELD  WRITTEN  Y/N  */ 

/*  THE  FOLLOWING  TABLE  IS  USED  TO  INTERPRET  THE 

SUBSCRIPTS  FOR  THE  ARRAY  FIELD' 

0 = RS 

1 = 

2 = Cl 

3 = C0 

4 = 

5 = 

6 = 

7 = A1 

8 = AS 
c,  = 

10  = 

11  = SI 

12  = 

13  = R 

14  = T 

15  = 

16  = M2 

17  = Ml 

18  = M0 

19  = D2 

20  = D1 

21  = 
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REJECT 

S3  2 DECLARE  MWORD  < 6>  BVTEj  /*  1 MICROWORD  */ 

/*  MICROWORD  FORMAT  IS  AS  FOLLOWS: 


1 n 

1 Cl 

R2  ! 

R1  ! 

RO  ! 

RS  ! 

T2  ! 

T1  f 

T0  ! 

! DOE  ! 

M2  ! 

Ml  ! 

MO  ! 

D2  ! 

D1  ! 

Cl  ! 

C0  ! 

! A1  ! 

AO  ! 

SI  ! 

1 

IM  ! 

CO  ! 

FI  ! 

F0  ! 

! SC VI  ! 

SCV0  ! 

CI1  ! 

CI0  ! 

1/03  ! 

1/02  ! 

1/01  ! 

1/00  ! 

! GUA1  ! 

GUAO  ! 

E ! 

FS3  ! 

FS2  ! 

FS1  ! 

FS0  ! 

ADDRS* ! 

! ADDRS! 

ADDR7 ! 

RDDR6 ! 

ADDRS ! 

ADDR4 ! 

ADDRS ! 

ADDR2 ! 

ADDR1 ! 

PL/M-SO  COMPILER 
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REJECT 


/* 


DECLARE  TBL<256>  BYTE  DATAC 


ADDRESS 
BIT  7 = 
BIT  6 = 
BIT  5 = 
BIT  4 = 
BIT  3 = 
BIT  2 = 
BIT  1 = 
BIT  0 = 


BITS  ARE  INTERPRETED  AS  FOLLOWS: 
P2B  - REG<T>  - PHRASE  PRESENT, 

A - BITS  NOT  EQUAL  TO  01B, 

SI  SET  BY  A PHRASE, 

VALUE  OF  SI, 

A1  SET  BY  A PHRASE, 

AO  SET  BY  A PHRASE, 

VALUE  OF  Al, 

VALUE  OF  AO. 


BITS  OF  EACH  TABLE  ENTRY  ARE  INTERPRETED  AS  FOLLOWS: 


BIT  7 
BIT  6 
BIT  5 
BIT  4 
BIT  3 
BIT  2 
BIT  1 
BIT  O 


UNFORSEEN  C I RCUMSTANCE, 

NOT  USED, 

NOT  USED, 

NOT  USED, 

CONFLICT  CAN  NOT  BE  RESOLVED, 
VALUE  OF  SI, 

VALUE  OF  Al, 

VALUE  OF  AO. 


*/ 


OOH,  80H,  80H,  80H,  30H,  80H,  8@H,  SOH,  OOH,  80H,  SOH,  SOH,  OOH,  OSH,  02H,  OSH, 

SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH, 

OOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  OOH,  SOH,  SOH,  SOH,  OOH,  01H,  02H,  OSH, 

OSH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  OSH,  SOH,  SOH,  SOH,  O-.rH,  OSH,  Ofc'H,  07H, 

OOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  OOH,  SOH,  SOH,  SOH,  OOH,  ODH,  02H,  OSH, 

SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH, 

OOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  OOH,  SOH,  SOH,  SOH,  OOH,  OSH,  02H,  OSH, 

04H,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  04H,  SOH,  SOH,  SOH,  04H,  ODH,  06H,  07H, 

OOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  OOH,  SOH,  SOH,  SOH,  OOH,  OSH,  02H,  03H, 

SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH, 

OOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  OOH,  SOH,  SOH,  SOH,  OOH,  ODH,  02H,  03H, 

OSH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  OSH,  SOH,  SOH,  SOH,  OCH,  OSH,  OEH,  OFH, 

OOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  OOH,  SOH,  SOH,  SOH,  OOH,  ODH,  02H,  OSH, 

SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH, 

OOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  SOH,  OOH,  SOH,  SOH,  SOH,  OOH,  OSH,  02H,  OSH, 

OSH,  SOH,  SOH,  80H,  SOH,  SOH,  SOH,  SOH,  ODH,  SOH,  SOH,  SOH,  OCH,  OSH,  OEH,  OFH>; 


-113- 


- 


A 


PL/M-S0  COMPILER  PRSS  II  OF  O.-SO  MICROPROGRAM  ASSEMBLER  27  OCT  77  PAGE 
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/jt:***.++**.+OECL  ARAT I ON  OF  SUBROUT  I MES**'*****1*1***/ 

/*  SUBROUTINE  ADVANCES  BUFFPTR  1 BYTE.  */ 

/*  REFILLS  BUFF  IF  REQUIRED.  */ 

BUFFADV : PROCEDURE; 

DECLARE  (NCHAR,  STATUS > ADDRESS; 

BUFFPTR  = BUFFPTR  + 1; 

IF  BUFFPTR=256 
THEN  DO; 

CALL  READ < SI..  BUFF,  256,  . NCHAR,  . STATUS) 
IF  NCHAR=0  THEN  DO; 

CALL  EOL; 

CALL  EXIT; 

END; 

BUFFPTR  = O; 

END; 

END  BUFFADV; 


90  2 

91  2 

92  2 

92  2 

95  4 

96  4 

93  5 

99  5 

100  5 

101  4 

102  4 
102  2 
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/*  EXTRACTS,  PRINTS  AND  COMPRESSES  CODE  FOR  1 MICROWORD  */ 
/*  TERMINATES  PROGRAM  IF  A ' 3 '-CHARACTER  IS  ENCOUNTERED.  */ 
/*  RESETS  CODEPTR,  PHVECT,  AND  FIELD.  */ 

/*  INITIALIZES  MWORD  TO  THE  VALUE  CORRESPONDING  TO  THE  */ 
/*  NULL  MICROINSTRUCTION.  ■*/ 

/*  RESETS  THE  DELAYED  RESOLUTION  FLAGS.  */ 


104 

/*  INITIALIZES  PHRASE <@>  TO  A VALUE  OTHER  THAN  ';  '. 

NEWWORD : PROCEDURE.: 

105 

DECLARE  < I , CHAR  > BYTE; 

106 

3 

DECLARE  CL,  ST)  ADDRESS; 

107 

3 

DECLARE  NEXTADDR  ADDRESS; 

108 

3 

LINEOUT . PROCEDURE; 

109 

4 

IF  L I NEPTR>@ 

111 

4 

THEN  CALL  ALPHA CLP, LINEPTR,  . LINE>; 
CALL  EOL; 

112 

4 

DO  I = 6 TO  79; 

113 

5 

L I NE  C I > = ' '; 

114 

5 

END; 

115 

4 

LINEPTR  = 0; 

116 

4 

END  LINEOUT; 

117 

3 

LINE ADV. PROCEDURE; 

118 

4 

LINEPTR  = LINEPTR  + 1; 

119 

4 

IF  LINEF'TR=80  THEN  CALL  LINEOUT; 

121 

4 

END  LINE ADV; 

122 

3 

CODE ADV : PROCEDURE; 

123 

4 

CODEPTR  = CODEPTR  + 1; 

124 

4 

IF  C0DEPTR=256 

126 

5 

THEN  DO; 

CALL  SKIPCLP); 

127 

5 

CALL  SKIPCCRT); 

128 

5 

E = E + 1; 

129 

5 

CALL  ALPHA CLP  ,33,.  C'MQRE 

THAN  ' 

130 

5 

'256  BYTES  IN  ', 
'MICROWORD.  ')>; 
CALL  ALPHA C CRT, 33,  . C'MORE 

THAN  ' 

131 

5 

'256  BYTES  IN  ', 
'MICROWORD.  ')); 
CALL  SKIPCCRT); 

132 

5 

CALL  EXIT; 

133 

5 

END; 

134 

4 

END  CODEADV; 

135 

3 

DO  I = 6 TO  255; 

136 

4 

CODEC  I)  = ' '; 

137 

4 

END; 

138 

3 

CODEPTR  = O; 

139 

DO  I *=  0 TO  79; 

140 

4 

LINECI)  = ' 

141  4 END; 
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142 

3 

LINEPTR  = 0; 

143 

3 

CHAR  = 00H; 

144 

3 

DO  WHILE  CHARO';  ') 

145 

4 

CHAR  = BUFF  CBUFFPTR); 

146 

4 

CALL  BUFFADV; 

147 

4 

IF  CHAR=CR 

THEN  DO; 

149 

5 

CALL  LINEOUT; 

150 

5 

IF  BUFFCBUFFPTR)=LF  THEN  CALL  BUFFADV; 

152 

5 

END; 

153 

4 

IF  CHAR=TAB 

THEN  DO; 

155 

5 

CALL  LINEADV; 

156 

5 

DO  WHILE  <LINEPTR  MOD  8)00; 

157 

6 

CALL  LINEADV; 

15© 

6 

END; 

159 

5 

END; 

160 

4 

IF  CHAR='  ' THEN  CALL  LINEADV; 

162 

4 

IF  CHAR='*'  OR  CHAR=';  ' 

THEN  DO; 

164 

5 

LINECLINEPTR)  = CHAR; 

165 

5 

CALL  LINEADV; 

166 

5 

DO  WHILE  BUFF <BUFFPTR> OCR; 

167 

6 

LI NEC LINEPTR?  = BUFFCBUFFPTR); 

16© 

6 

CALL  LINEADV; 

169 

6 

CALL  BUFFADV; 

170 

6 

IF  LINECLINEPTR-1)=TA6 

THEN  DO; 

172 

7 

L INE  C L I NEPTR-1 ) = " '; 

173 

7 

DO  WHILE  CLINEPTR  MOD  8)00- 

174 

8 

CALL  LINEADV; 

175 

8 

END; 

176 

7 

END; 

177 

6 

END; 

17© 

5 

END; 

179 

4 

IF  CHAR=';  " 

THEN  DO; 

181 

5 

CALL  LINEOUT; 

182 

5 

CALL  BUFFADV;  /*  STEP  OVER  CR. 

183 

5 

IF  BUFF C BUFFPTR ) =LF  THEN  CALL  BUFFADV; 

185 

5 

CODE < CODEPTR ) = '; 

186 

5 

CALL  CODEADV; 

187 

5 

END; 

188 

4 

IF  CHAROCR  AND  CHAROTAB  AND  CHARO ' ' 

AND  CHARO AND  CHARO';  ' 

THEN  DO; 

19© 

5 

LINE CLINEPTR)  / CODEC CODEPTR)  = CHAR; 

191 

5 

CALL  LINEADV; 

192 

5 

CALL  CODEADV; 
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193 

5 

END; 

194 

4 

IF  CHAR='J'  THEN  DO; 

196 

5 

CALL  EOL; 

197 

5 

CALL  EOL; 

198 

5 

I = HIGHCFIRST AVAIL ADDR); 

199 

5 

CALL  HEX CLP, 2,  . I); 

200 

5 

I = LOWC FIRST AVAILADDR>; 

201 

5 

CALL  HEX CLP, 2,.  I); 

202 

5 

CALL  ALPHACLP, 27,  . <'  IS  NEXT 
'AVAILABLE  ADDRESS.  ')>; 

203 

5 

CALL  EOL; 

204 

5 

CALL  INTEGCLP,  E); 

205 

5 

CALL  INTEGCCRT,  E); 

206 

5 

CALL  ALPHACLP, 6,.  ('  ERROR')). 

207 

5 

CALL  ALPHA C CRT,  6,  . ('  ERROR ') 

208 

5 

IF  EOl 

THEN  DO; 

210 

6 

CALL  ALPHACLP,  1,.  < 'S 

211 

6 

CALL  ALPHA  < CRT,  1,  . < '! 

212 

6 

END; 

213 

5 

CALL  PAGE CLP); 

214 

5 

CALL  PAGE CLP); 

215 

5 

CALL  SKIPCCRT); 

216 

5 

CALL  EXIT; 

217 

5 

END; 

218 

4 

END, 

219 

“> 

-> 

CODEPTR  = 0; 

220 

3 

DO  I = 0 TO  17; 

221 

4 

PHVECTCI)  = 0; 

222 

4 

END; 

223 

3 

DO  I = 0 TO  21; 

224 

4 

FIELDCI)  = 0; 

225 

4 

END; 

226 

MWORDC0)  = 00H; 

227 

2 

MW0RDC1)  = 5CH; 

228 

3 

MW0RDC2)  = OOH, 

229 

3 

MW0RDC3)  = BOH; 

230 

3 

MW0RDC4)  = 0EOH; 

231 

3 

MW0RDC5)  = 00H; 

232 

3 

CALL  READ C BO,  . ADDR,  2,  . L,  . ST); 

233 

3 

NEXTADDR  = ADDR  + 1; 

234 

3 

IF  C NEXTADDR  AND  OO01H)  = 00O1H 

THEN  CALL  SETBITC.  MWORD,  35,  4,  0001B); 

236 

3 

ELSE  CALL  SETBITC.  MWORD,  35, 4, 0000B); 

237 

3 

NEXTADDR  = SHR C NEXTADDR,  1); 

238 

3 

MWORD C 5)  = LOWC NEXTADDR); 

239 

3 

IF  C NEXTADDR  AND  010OH)  - 0100H 

THEN  CALL  SETBITC.  MWORD,  39,  1,  IB); 

241 

3 

ELSE  CALL  SETBITC.  MWORD,  39, 1,  0B); 

242 

3 

P1BD I PHRASEPRESENT  = 00H; 

243 

3 

P2BREGPHRASEPRESENT  = OOH; 

244 

3 

N0TAD1  = 00H; 

245 

3 

DOALCPHRASEPRESENT  = OOH; 

246 

3 

PHRASECO)  = '9'; 
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248  2 

249  3 

250  3 

252  4 

253  4 

254  4 

255  3 


259 


280  4 


263  5 

264  5 

265  5 

266  4 

267  5 

268  5 

269  5 

27©  5 

271  4 


272  3 

274  4 

275  4 

276  4 

277  4 

278  4 

279  4 

280  4 

281  5 

282  5 

283  4 

234  3 


i 


/*  EXTRACTS  NEXT  PHRASE  FROM  MICROWORD  IN  ARRAY  CODE  */ 


NEWPHRASE : PROCEDURE; 

DECLARE  I BYTE; 

IF  CODE < CODEPTR > = ';  ' 

THEN  DO;  /*  END  OF  MICROWORD  */ 

PHRASE  <0)  = ';  '; 

RETURN; 

END; 


CALL  MOVE  <33..  . < ' 


PHRASE ); 


/*  MOVE  CODEPTR  OVER  ',  ' */ 

IF  CODE < CODEPTR ) = ' , ' THEN  CODEPTR  = CODEPTR  + 1; 

X*  TRANSFER  NEXT  PHRASE  TO  ARRAY  PHRASE  */ 

I = O; 

DO  WHILE  CODE < CODEPTR) O';  ' 

AND  CODE < CODEPTR) O',  ' 

AND  I <33; 

IF  CODE < CODEPTR)  = ' : ' 

THEN  DO; 

I = O; 

CODEPTR  = CODEPTR  + 1; 

CALL  MOVE <33,.  (' 

' '),  .PHRASE); 

END; 

ELSE  DO; 

PHRASE <1 ) = CODE  < CODEPTR ) ; 

CODEPTR  = CODEPTR  + 1; 

I = I +1; 

END; 

END; 

/+  IS  PHRASE  LONGER  THAN  33  CHARACTERS  ? */ 

IF  1=33 

THEN  DO; 

E = E + 1; 

CALL  ALPHACLP,  29,  . <'***  PHRASE  IGNORED,  ', 
' TOO  LONG:  ')); 

CALL  ALPHA CLP, 33, . PHRASE); 

CALL  ALPHACLP, 5,.  <' ')>; 

CALL  EOL; 

PHRASE  CO)  = ' ' ; 

DO  WHILE  CODEC  CODEPTR)  O';  ' 

AND  CODE  < CODEPTR ) O ' , '; 
CODEPTR  = CODEPTR  + 1; 

END; 

END; 

END  NEWPHRASE, 
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/*  THIS  SUBROUTINE,  GIVEN  THE  ARRAV  PHRASE,  DETERMINES  *7 
7*  THE  TVPE  OF  THE  PHRASE.  IT  THEN  CHECKS  THE  ARRAV  *7 
7*  PHVECT  TO  SEE  IF  THIS  TVPE  OF  PHRASE  HAS  OCCURED  VET  */ 
7*  IN  THE  CURRENT  MICROINSTRUCTION.  IF  NOT,  THEN  IT  SETS  *7 
7*  THE  CORRESPONDING  ENTRV  IN  PHVECT.  *7 


285  2 

286  3 

288  4 

289  4 

29©  4 

291  3 


293  4 

294  4 

295  4 

296  3 

298  4 

299  4 

30©  4 

301  3 

303  4 

304  4 

305  4 

306  3 

308  4 

309  4 

310  4 

311  3 

313  4 

314  4 

315  4 

316  3 

318  4 

319  4 

320  4 

321  3 

323  4 

324  4 

325  4 

326  3 


328  4 

329  4 

330  4 

331  3 


I DENT I FV : PROCEDURE; 

IF  EQUAL C.  PHRASE,.  <'G0T0'>,4> 

THEN  DO; 

TVPE  = 0; 

GOTO  L; 

END; 

IF  EQUAL <.  PHRASE  ,.  < 'REGC ' 4>  AND 
< EQUAL <•  PHRASE <5 >, . <'>=x  >,  2>  OR 

EQUAL < . PHRASE <5 ),  . < '+1>=' >, 4> > 
THEN  DO; 

TVPE  = 1; 

GOTO  L; 

END; 

IF  EQUAL < . PHRASE,.  <'P1B='>,  4> 

THEN  DO; 

TVPE  = 2; 

GOTO  L; 

END; 

IF  EQUAL <.  PHRASE,  . < ' P2B="  >,  4> 

THEN  DO; 

TVPE  = 3; 

GOTO  L; 

END; 

IF  EQUAL  C.  PHRASE,  . < xDO=' >, 3> 

THEN  DO; 

TVPE  = 4; 

GOTO  L; 

END; 

IF  EQUAL < . PHRASE,.  <'ALC='>,4> 

THEN  DO; 

TVPE  = 5; 

GOTO  L; 

END; 

IF  EQUAL <.  PHRASE,  . < 'SHIFTER-' >,  8) 
THEN  DO; 

TVPE  = 6; 

GOTO  L; 

END; 

IF  EQUAL  < . PHRASE,.  < "MXL0OUT= ' 8> 
THEN  DO; 

TVPE  = 7; 

GOTO  L; 

END; 

IF  EQUAL <■  PHRASE, . < '’MXL10UT=  >,  8> 
THEN  DO; 

TVPE  = 8; 

GOTO  L; 

END; 

IF  EQUAL <.  PHRASE,.  < 'MXH0OUT= ' >, 8) 
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333  4 

334  4 

335  4 

336  3 

338  4 

339  4 

340  4 

341  3 

343  4 

344  4 

345  4 

346  3 

348  4 

349  4 

350  4 


358  4 

359  4 

360  4 

361  3 

363  4 

364  4 

365  4 

366  3 

368  4 

369  4 

370  4 

371  3 


378  4 

379  4 

330  4 


383  4 

384  4 

385  4 

386  3 

387  3 


THEN  BO- 

TVF'E  = 9; 

GOTO  L, 

END. 

IF  EQUAL C PHRASE/  < " MXH10UT= ' >,  8> 
THEN  DO, 

TYPE  = 10; 

GOTO  L; 

END, 

IF  EQUAL  <.  PHRASE,.  <'CQ='>,3> 

THEN  DO; 

TYPE  = 11; 

GOTO  L; 

END, 

IF  EQUAL-:  PHRASE,.  < 'MFLAGS=' >,  7> 
THEN  DO, 

TYPE  = 12; 

GOTO  L; 

END; 

IF  EQUAL-:.  PHRASE,.  < 'COUT='  >,  5) 
THEN  DO, 

TYPE  = 13; 

GOTO  L; 

END; 

IF  EQUAL <.  PHRASE,  . < 'NOLOAD  7> 
THEN  DO; 

TYPE  = 14, 

GOTO  L; 

END; 

IF  EQUAL <.  PHRASE,.  C'I/0='>,4> 

THEN  DO, 

TYPE  = 15, 

GOTO  L; 

END; 

IF  EQUAL C.  PHRASE,.  < " GUA= ' > , 4 > 

THEN  DO, 

TYPE  = 16; 

GOTO  L; 

END; 

IF  EQUAL. <.  PHRASE,.  <"E=0,2> 

THEN  DO; 

TYPE  = 17; 

GOTO  L, 

END; 

IF  EQUAL-:.  PHRASE,  . C' 

THEN  DO, 

TYPE  = 18; 

GOTO  L; 

END; 

IF  EQUAL < PHRASE,.  <';  >,1> 

THEN  DO, 

TYPE  = 19; 

GOTO  L; 

END, 

IF  NONE  OF  THE  ABOVE  THEN  *, 

TYPE  = 20, 


! 
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REJECT 

/*  CHECK  AND  SET  PHRASE  PRESENCE  INDICATOR  */ 
IF  TVPEC18 

THEN  IF  PHVECT C TYF’E > 

THEN  DO; 

E = E + 1; 

CALL  ALPHA  CLP.-  30,  . <'***  DUPLICATE 
'E  PHRASE  IGNORED:  '>>) 
CALL  ALPHA CLP, 32,  . PHRASE >; 

CALL  EOL; 

TVPE  = 18; 

END; 

IF  TVPEC18  THEN  PHVECT C TVPE > = 0FFH; 

298  3 END  IDENTIFY; 


390  4 

391  4 

392  4 

393  4 

394  4 

395  4 

396  3 
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REJECT 


398 

2 

ASC 1 1 2B I N : PROCEDURE  < D I G I T > ADDRESS; 

400 

3 

DECLARE  DIGIT  BVTE; 

401 

3 

DECLARE  < VALUE, BAD > BVTE; 

402 

3 

DECLARE  DUMMV  ADDRESS  ATC.  VALUE >; 

403 

3 

IF  D I G I T>=38H  AND  DIGIT<=3FH  OR 
DIGIT>=41H  AND  DIGIT<=46H 

THEN  DO; 

405 

4 

IF  EQUBITC.  DIGIT,  1,  3,  011B> 
THEN  VALUE  = DIGIT  AND  1 

407 

4 

IF  EQUBITC.  DIGIT,  1,  3,  100B> 
THEN  VALUE  = < DIG IT  AND 

409 

4 

BAD  = 0OH; 

410 

4 

END; 

411 

3 

ELSE  DO; 

412 

4 

VALUE  = 0OH; 

413 

4 

BAD  = 0FFH; 

414 

4 

END; 

415 

3 

RETURN  DUMMY; 

416 

3 

END  ASCI I 2B IN; 

+ 9; 
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417  2 PR  I NTROUT I NE  : PROCEDURE.; 

418  3 DECLARE  Z BYTE; 


/*  WRITE  INTO  BINARY  FILE  *■/ 


419  3 


CALL  ALPHA C BO, 6,  . MWORD); 


/*  PRINT  CONTENTS  OF  MICROWORD  */ 


420  3 

421  3 

423  3 

424  3 

425  3 

426  3 

427  3 

423  3 

430  3 

431  3 


432  3 

433  3 

434  3 

436  3 

437  3 

438  3 

439  3 

440  3 

441  3 

442  3 

443  3 

444  3 

445  3 

446  3 

447  3 

443  3 

443  3 

450  3 

451  3 

452  3 

453  3 

454  3 

455  3 

456  3 

457  3 

458  3 

453  3 

460  3 

461  3 

462  3 


CALL  EOL; 

IF  LINEN0>53  THEN  CALL  HEADER <0}; 

CALL  ALPHA CLP,  14,  . C ' ')); 

CALL  EOL.; 

CALL  ALPHACLP,  9,  . < ' ! ADDR  = ')); 

Z = SHL  C H I GH  C ADDR ) , 4 ) ; 

CALL  HEX  <LP,  1,  . Z>; 

CALL  HEX  CLP,  2,  . ADDR); 

CALL  ALPHACLP,  2,  . C ' ! '>  ); 

CALL  EOL; 

CALL  ALPHA CLP,  80,  . <' 


' ' >>; 

CALL  EOL; 

CALL  ALPHA CLP,  6, . C ' ! R = ')); 

IF  EGUBITC.  MWORD,  4,  1,  IB) 

THEN  CALL  ALPHA C LP, 1,  . C'X')); 

ELSE  CALL  HEX  CLP,  1,  . MWORD); 

CALL  ALPHA  CLP,  3, . C " ! M = •')); 

Z = MW0RDC1)  AND  70H; 

CALL  HEX CLP,  1,  . Z); 

CALL  ALPHA CLP,  7,  . <"  ! D = ')); 

Z = SHL C MWORD Cl),  3)  AND  60H  OR  10H, 

CALL  HEX CLP, 1,  2); 

CALL  ALPHA CLP, 7,  . C'  ! A = ')); 

Z = SHR  C MWORD C 2 ) , 2)  AND  30H; 

CALL  HEXCLP, 1,  . Z); 

CALL  ALPHA CLP, 10,  C"  !’  SCV  = ')); 

Z = SHR  C MWORD  C 3 ) , 2)  AND  38H, 

CALL  HEXCLP,  1,  . Z); 

CALL  ALPHA CLP, 3,  . C ' ! Cl  = ')); 

2 = MWORD  C 3 > AND  30H; 

CALL  HEXCLP,  1,  . Z); 

CALL  ALPHA CLP, 3,.  C ' ! QUA  = ')>; 

2 = SHR C MWORD C 4),  2)  AND  30H; 

CALL  HEXCLP, 1,  . Z); 

CALL  ALPHA  CLP,  11,  . C ' !!  ADDR  = '»> 

Z = C SHL C MWORD C 4), 5)  AND  20H)  OR 
C SHR  C MWORD  C 5 ) , 3)  AND  10H>; 

CALL  HEXCLP,  1,  . Z); 

Z = SHLCMW0RDC5),  1)  AND  0FEH; 

CALL  HEXCLP,  2,  Z); 

CALL  ALPHA  CLP,  2,  . C ' ! ' ) ); 

CALL  EOL; 

CALL  ALPHA CLP; 80,  . (' 
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463 

3 

" '■  > >> 

CALL  EOL; 

464 

CALL  ALPHA  CLP.  6,  . <'  ( T = '»> 

465 

Z = SHL  < M WORD  COX.  4 > AND  70H, 

466 

7 

IF  EQUBITC.  MWORD,  4,  1,  1EO 

468 

*7 

THEM  CALL  ALPHA < LP,  1,  . C'XOX; 

ELSE  CALL  HEX  CLP.-  1, . Z>i 

469 

7 

CALL  ALPHA  CLP,' 9..  . ('  ' DOE  = '>>:■ 

470 

3 

Z = SHRCMW0RDC1>,  3>  AND  10H, 

471 

—> 

CALL  HEX  CLP,  1,  . 2>; 

472 

3 

CALL  ALPHA  CLP,  7,  . <'  ! C = 0>; 

473 

3 

Z = SHL C M WORD Cl > , 4>  AND  30H, 

474 

CALL  HEX  CLP,  1,  . 2>; 

475 

7 

CALL  ALPHA  CLP,  7,  . C ' • S = '>>; 

476 

3 

IF  EQUBITC.  MWORD,  18,  1,  1B> 

478 

THEN  2 = 20H; 

ELSE  2 = 10H; 

479 

CALL  HEX  CLP,  1,  .2}.; 

480 

3 

CALL  ALPHA  CLP,  10,  . C " !!  CO  = :>  > , 

481 

3 

2 = SHL  C MWORD  C 2 > , 2 > AND  10H, 

482 

3 

CALL  HEX  CLP,  1,  . Z'Ji 

483 

3 

CALL  ALPHA  CLP,  9,  . C " ! I/O  = ':>> 

484 

"7 

2 = SHL  C MWORD  C 3 > , 4 > ; 

485 

s 

CALL  HEX CLP, 1,  . Z>; 

486 

7 

CALL  ALPHA  CLP,  9,  . C ' ! E = 

487 

3 

2 = SHRCMW0RDC4), 1>  AND  10H.; 

488 

-> 

CALL  HEX  CLP,  1,  . 2 

489 

3 

CALL  ALPHA CLP, 11,  . C !!  FLAG  = >>; 

490 

2 = SHL C MWORD C 4),  3)  AND  OFOH, 

491 

3; 

CALL  HEX  CLP,  1,  . 2 >; 

492 

3 

CALL  ALPHA  CLP,  4,  . C " ! ' '>):■ 

493 

CALL  EOL.; 

494 

3 

CALL  ALPHA  CLP,  80,  . C " 

. X 

495 

3 

' '■>>; 

CALL  EOL.; 

496 

3 

CALL  ALPHA CLP,  2,  . C ' ! '>>; 

497 

3 

CALL  HEX  CLP, 12,  . MWORD > ; 

498 

7 

CALL  ALPHA CLP, 2,  . C ' ! ' > >; 

499 

■7 

CALL  SPACE  CLP,  18>.; 

500 

3 

CALL  ALPHA CLP, 9,  . C ' ! ! IM  = ">>; 

501 

2 = SHL  C MWORD  C 2 ) , 1>  AND  10H.; 

502 

3 

CALL  HEX  CLP,  1,  . Z>; 

503 

3 

CALL  ALPHACLP,  9,  . ! F = •">>; 

504 

3 

2 = SHL C MWORD C 2),  4)  AND  30H; 

585 

3 

CALL  HEX  CLP,  1,  . 2>, 

506 

3 

CALL  ALPHACLP,  9,  . C"  ! RS  = '>>; 

507 

3 

2 = SHL  C MWORD  COX.  1 > AND  10H.; 

508 

3 

CALL  HEX  CLP,  1,  . 2>, 

509 

3 

CALL  ALPHACLP,  3,  < x ! ! O); 

510 

3 

CALL  EOL; 

511 

3 

CALL  ALPHACLP,  16,  . ' >>, 

512 

3 

CALL  SPACE CLP,  18), 

513 

3 

CALL  ALPHACLP,  33,  . C ', 

514 

3 



CALL  EOL, 

515 

3 

CALL  EOL* 
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22 
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ADDR  = 0J 
E = O. 

BUFFPTR  = 255;  /*  INDICATES  BUFF  EMPTY  •+/ 

CALL  BUFFADV.;  /*  FILLS  BUFF  */ 


/*:t:>t::l  *:t'  + *.'+::4.C0DE  TRANSLAT I ON  LOOP*’*'***********’*'/ 

21  2 DO  WHILE  OFFHj  /*  UNTIL  EOF  GETS  US  OUT  */ 

/*■  ONE  MICROWORD  TRANSLATED  EACH  ITERATION  */ 

/*  INITIALISE  FOR  NEXT  MICROWORD  */ 

22  3 CALL  NEW WORD; 

/*  PROCESS  ALL  PHRASES  OF  THE  MICROWORD  */ 

23  3 DO  WHILE  PHRASE  (CO OX 

24  4 CALL  NEWPHRASE.; 

525  4 CALL  IDENTIFY, 


IS 

19 

20 
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REJECT 


525  4 


527  5 

528  6 

52?  8 

520  5 

531  6 

532  6 

534  7 

526  8 

537  8 

538  8 

53?  8 

540  8 

541  7 

542  8 

544  8 

545  8 

546  8 

547  8 

548  7 

550  8 

551  8 

552  8 

553  8 

554  8 

555  7 

557  8 

558  8 

559  3 

560  8 

561  8 

■-•Oil  r 

562  6 

564  6 

565  6 


566  7 

567  7 

563  6 


570  7 

571  7 


/*  TRANSLATE  PHRASE,  CHECK  FOR  CONFLICTS  */ 

00  CASE  TYPE; 

/******************/ 

/*  0 : GOTO— PHRASE 

/*.  >♦;  sfc  )+i  i+:  * *:  * !*:  /' 

00; 

OECLARE  Cl, AOOR>  AODRESS; 

OECLARE  LABL  < 8 > BYTE; 

OECLARE  < SUFFIX, SUFF IXLENGTH)  BYTE; 

OECLARE  CK,  L>  BYTE; 

IF  PHRASEC4)  = "<" 

THEN  00; 

IF  EQUAL C.  C"<GQ0+GG>  ">,  . PHRASEC4),  8) 

THEN  00; 

CALL  SETBITC.  MACRO,  35,  4,  1111B); 
CALL  SETBITC.  MACRO,  39,  1,  0B>; 

MACRO  C 5 > = 0; 

GOTO  ENO0; 

ENO; 

IF  EQUAL C.  C '<256+0>  " >,  . PHRASE C 4 >,  8) 

THEN  00; 

CALL  SETBITC.  MACRO, 35, 4, 1111B); 
CALL  SETBITC.  MACRO,  39,  1,  CEO; 

MACRO C 5 > = 80H; 

GOTO  ENOO; 

ENO; 

IF  EQUAL C.  C'<512+0>  " >,  . PHRASE C 4),  8> 

THEN  00; 

CALL  SETBITC.  MACRO, 25,  4, llllEO; 
CALL  SETBITC.  MACRO,  39,  1,  1B>; 

MACRO  C 5 ) = O; 

GOTO  ENO0; 

ENO; 

IF  EQUALC.  C'<76S+®>  " >,  . PHRASEC4),  8) 

THEN  00; 

CALL  SETBITC.  MACRO,  25,  4,  11116;; 
CALL  SETBITC.  MACRO,  39,  1,  1EO; 

MAORD  C 5 > = S0H; 

GOTO  ENOO; 

ENO; 

ENO; 

CALL  MOVE C 8,  . <"  ">, . LABL>; 

L = 0; 

00  AHILE  CPHPASECL+4>0"<">  AND 
C PHRASE CL+4>0"  ">  AND 
CL<9>; 

L = L + 1; 

ENO; 

IF  CL=9>  AND  C PHRASE  C 8 ) O " C " > 

AND  C PHRASE C 8)0"  "> 

THEN  00; 

E = E + 1; 

CALL  ALPHA CLP,  28,  . <"***  ILLEGAL  LABEL  ", 
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•'TOO  LONG.  '>>; 


572 

1 

CALL  EOL; 

573 

7 

GOTO  END0; 

574 

7 

END.; 

575 

6 

IF  < PHRASE (4K  'A  '>  OR  CPHRASE<4»'  Z'  > 

THEN  DO, 

577 

f 

E = E + 1; 

578 

7 

CALL  ALPHA <LP, 65,  <'+**  ILLEGAL  LABEL. 
'DOES  NOT  BEGIN  WITH  AN  ALPHABETIC  ", 
'CHARACTER.  '>>; 

579 

i 

CALL  EOL; 

580 

7 

GOTO  END0; 

581 

7 

END; 

582 

6 

LABLC0>  = PHRASE C 4 >; 

583 

6 

K = 5; 

534 

6 

DO  WHILE  K < CL+4>; 

585 

f 

IF  < C PHRASE C K > < ' A ' > OR  C PHRASE <K »' Z' ) > AND 

C C PHRASE  < K > < ' 0 ' > OR  C PHRASE  C K > > ' 9 ' > > 

THEN  DO; 

587 

8 

E = E + 1; 

588 

8 

CALL  ALPHA CLP, 56,  < • ***  ILLEGAL  LABEL 

'CONTAINS  NOW-ALPHANUMERIC  CHARACTER. 

589 

3 

CALL  EOL; 

590 

3 

GOTO  ENDO; 

591 

8 

END; 

592 

7 

LABL<K-4>  = PHRASE <K>; 

593 

f 

END; 

594 

6 

I = 0; 

595 

6 

DO  WHILE  < I <=ENDSVMBTAB ) AND 

NOT  EQUAL C.  LABL,  . MEMORV+I,  8>; 

598 

7 

I = I + 12; 

597 

7 

END; 

593 

6 

IF  I > ENDSVMBTAB 

THEN  DO; 

600 

7 

E = E + 1; 

601 

7 

CALL  ALPHA CLP, 34,  . <'*♦*  NO  SUCH  LABEL 
'SVMBOL  TABLE.  '>>; 

602 

7 

CALL  EOL, 

603 

7 

GOTO  END0; 

604 

7 

END; 

605 

6 

SUFFIXLENGTH  = MEMORVC I+8>, 

606 

6 

CALL  MOVE C 2,  . MEMORV+I +10,  . ADDR>; 

607 

6 

IF  C SUFF I XLENGTH=0 > AND  CPHRASECL+4><>  '> 

THEN  DO; 

609 

7 

E = E + 1; 

610 

7 

CALL  ALPHA CLP,  20,  . < '***  ILLEGAL  SUFFIX. 

611 

7 

CALL  EOL; 

612 

r 

GOTO  ENf'O  • 

613 

7 

END; 

614 

6 

IF  SUFFIXLENGTH  = 0 

THEN  DO, 

616 

7* 

IF  cADDP  AND  0001H>  = 0OO1H 

THEN  CALL  SETBITC.  MWGRD, 35, 4,  0O81B) 

613 

7 

ELSE  CALL  SETBITC.  NWuRD,  35,  4,  8000BX 

619 

7 

ADDR  « SHR-  ADDR,  1); 

620 

7 

MWQRDC 5>  = LOW C ADDR >; 

621 

7 

IF  cADDP  AND  01OOH < = 01O0H 
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823  7 

824  7 

625  7 

626  6 

628  7 

629  7 

63C  7 

631  7 

632  7 

633  6 

634  7 

635  7 

636  S 

637  8 

639  8 

641  8 

643  8 

645  8 

647  8 


649  9 

650  9 

651  9 

652  9 

653  9 

654  8 

655  8 

656  8 

658  8 

659  8 

660  7 

661  7 

662  8 

663  8 


665  9 


666  9 


THEN  CALL  SETBIT  <.  MWORD,  39,  1,  IB); 

ELSE  CALL  SETBIT <.  MWORD,  39,  1,  8B>; 

GOTO  END0; 

END; 

IF  < PHRASE  <L+4>  O' < ' > OR  < PHRASE < L+SUFF I XLENGTH+5 > O O O 
THEN  DO; 

E = E + 1; 

CALL  ALPHA <LP,  28,  . <"***  ILLEGAL  SUFFIX.  O); 

CALL  EOL; 

GOTO  END0; 

END; 

DO  CASE  SUFFIXLENGTH; 

X*  SUFFIXLENGTH  = 0 */  ; 

X*  SUFFIXLENGTH  = 1 *X  DO; 

L = L + 5; 

IF  PHRASE <L>='0" 

THEN  CALL  SETBIT <.  MWORD,  35,  4,  0080B); 

IF  PHRASE CL > = ' 1' 

THEN  CALL  SETBITC.  MWORD.  35,  4,  80010; 

IF  PHRASE < L > = ' S ' 

THEN  CALL  SETBIT <.  MWORD,  35,  4,  0010E); 

IF  PHRASE < L > = ' Z ' 

THEN  CALL  SETBI T<.  MWORD,  35,  4,  0011B); 

IF  PHRASE<L)='P ' 

THEN  CALL  SETBIT < MWORD,  35,  4,  0108B); 

IF  < PHRASE CL>  O '80  AND 
<PHRASE<L>  -O  ' 1 ) AND 

< PHRASE  < L ) -CD  ' S ' ) AND 
< PHRASE <L>  O '20  AND 

< PHRASE  <L>  O 'PO 
THEN  DO; 

E = E f 1; 

CALL  ALPHA  CLP,  28,  . < ILLEGAL 

"SUFFIX.  '>■; 

CALL  EOL; 

GOTO  ENDS; 

END; 

ADDR  = SHRCADDR,  1); 

MWORD  < 5 > = LOWc.  ADDR  >; 

IF  < ADDR  AND  0100H>  = 8188H 

THEN  CALL  SETBITC  MWORD,  39, 1,  1B>; 

ELSE  CALL  SETBIT <.  MWORD,  29,  1,  8B>; 

END; 

X*  SUFFIXLENGTH  = 2 *X  ; 

X*  SUFFIXLENGTH  = 3r  */  DO; 

L = L + 5; 

IF  <<PHRASE<L  >=  ©O  OR 

< PHRASE <L  .:■=  1>>  AND 

< < PHRASE  < L+l  > = O > OR 

< PHRASE < L+l > * 1 ' > ) AND 

< < F HRASE < L+2 > = ' 0 ' > OR 

< PHRASE  < L+2  ) = ' 1 O ) 

THEN  DO; 

SUFFIX  = SHL< PHRASE <L  > AND  1,2) 
OR  SHL  < PHRASE  L+l > AND  1,1) 
OR  < PHRASE < L+2)  AND  1); 

ADDR  = ADDR  OR  SUFFIX; 
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667 

9 

IF  (ADDR  AND  0O01H>  = OOOiH 

THEN  CALL  SETBITC  MWORD, 

35,  4,  0001B) 

669 

9 

ELSE  CALL  SETBITC.  MWORD, 

35,  4,  OOOOB  > 

670 

9 

ADDR  = SHF:  C ADDR,  IX- 

671 

9 

MWORD C 5 > = LOW C ADDR >; 

672 

9 

IF  C ADDR  AND  01OOH>  = CilOOH 

THEN  CALL  SETBITC.  MWORD, 

39.  1,  16  X; 

674 

9 

ELSE  CALL  SETBITC.  MWORD, 

39,  1,  OB); 

675 

9 

GOTO  ENDS WAV, 

676 

9 

END. 

677 

8 

IF  EQUAL C.  PHRASE+L,  . C-'HHI  >,  3> 

THEN  DO, 

679 

9 

CALL  SETBITC.  MWORD,  35,  4,  1@01B>; 

680 

9 

ADDR  = SHR  C ADDR,  1); 

681 

9 

MWORDc 5 > = LOW c ADDR >; 

682 

9 

IF  -ADDR  AND  0100H>  = 0100H 

THEN  CALL  SETBITC.  MWORD, 

39,  1,  1E0; 

684 

9 

ELSE  CALL  SETBITC.  MWORD, 

39-  1,  8B>; 

685 

9 

GOT 0 ENDS WAV, 

686 

9 

END, 

/*  IF  NONE  OF  THE  ABOVE  THEN  */ 

687 

8 

E = E + 1: 

688 

8 

CALL  ALPHA  CLP,  20,  . C ++-+:  ILLEGAL 

'SUFF  IX. 

689 

S 

CALL  EOL> 

690 

3 

END8WAV  END, 

691 

— i 

f 

/ + 

SUFFIXLENGTH  = 4 */  DO, 

692 

s 

L = L + 5- 

693 

3 

I F C C PHRASE  CL  > = © ' > OR 

C PHRASE  CL  >»•'!'  ■ AND 

695 


698  9 

697  9 


699 


70© 

701 

702 


9 

9 


C c PHRASE 1 L+l  ' — ’ O'  ■'  ■*  OR 

C PHRASE  CL+1>=  1 
C C PHRASE  < L+2  > = Ci  > OP 


AND 


THEM  DO.; 


< PHRASE  C L +2  > = ' 1 
■3>=  0-">  OR 

/ rtf 

ID 

C PHRASE  C L^-3  > = ' 1 

} > 

; = SHLC PHRASE CL  > 

AND 

1-  3,i 

OR  SHLC PHRASE C L+l J 

AND 

1,  ^ > 

OR  SHLC PHRASE < L+2 > 

AND 

1 ■ 1 

OR  C PHRASE CL+3> 

AND 

1 > , 

ADDR  — AOOR  OF:  SUFF I X, 

IF  C ADDR  AND  81O0H>  = CIO OH 
THEN  CALL  SETBITC.  MWORD, 

35..  4,.  OOOIBX. 

ELSE  CALL  SETBITC.  MWORD, 

35,  4,  OOOOB  > i 

ADDR  = SHRCADDR,  1>; 

MWORD  C 5 ) = LOW C ADDR >; 

IF  C ADDR  AND  OOOiH > = 0001H 
THEN  CALL  SETBITC.  MWORD, 


j 
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704  9 


709  9 

710  9 

711  9 

712  9 


?±A  9 


717  8 

718  8 


39,  1,  IB); 

ELSE  CALL  SETBITC.  MWORD, 

39,  1,  OB); 

GOTO  END 1C WAV, 

END.; 

IF  EQUAL  C.  PHRASE +L,  . C RHHI ' ),  4> 

THEN  DO; 

CALL  SETBITC.  MWORD,  35,  4,  lOOOB); 

A C>  D R = SHRCADDR,  1 ) ; 

MWORD v 5 > = LOW C ADDR); 

IF  C A DDR  AND  OlOOH)  = OlOOH 
THEN  CALL  SETBITC.  MWORD, 

39,  1,  IB); 

ELSE  CALL  SETBITC.  MWORD, 

•39,  1,  OB); 

GOTO  END16WAV, 

END; 

/*  IF  NONE  OF  THE  ABOVE  */ 

E = E + 1.; 

CALL  ALPHA  CLP,  19,  . C '+■+■■*  ILLEGAL  ", 

'SUFFIX.  ''  )); 

CALL  EOL; 

END16WAV : END; 

/*  SUFFIXLENGTH  = 5 */  ; 

/+  SUFFIXLENGTH  = 6 *■/  ; 

/*  SUFFIXLENGTH  = 7 */  DO; 

L = L + 5, 

IF  CC PHRASE CL  )='0')  OR 

C PHRASE CL  > = ' 1 ' ) ) AND 
C C PHRASE  CL+1)=  •"  0 ' > OR 

C PHRASE CL+1 > = ' 1 " ) ) AND 
C C PHRASE  CL+2  ) = •'  O ' > OR 

C PHRASE C L+2  > = ' 1 ' > ) AND 
C C P HR  AS  E C L + 2-  ) = "'  6 ' ) 0 R 

C PHRASE  C L+3  ) = ' 1 ' >>  AND 
C C PHRASE  C L+4  1 = ' 0 ' ) OR 

C PHRASE C L+4  ) = ' 1 ' > > AND 
C C PHRASE C L+5  ) — ■'  O ■'  ) OR 

C PHRASE  C L+5  > = " 1 ) ) AND 
C C PHRASE C L+6 ) = 0'  ) UR 

C PHRASE  C L+6  ) = * 1 ' ) ) 

THEN  DO; 


= 

SHLC PHRASE CL  ) 

AND 

1,  6) 

OR 

SHL  C F HF'ASE  CL+1 ) 

AND 

1,  5) 

OR 

SHLC PHRASE c L+2) 

AND 

1,  4) 

OR 

SHL  C F'HF'ASE  C L+3  ) 

AND 

1,  3 > 

OR 

SHLC PHRASE C L+4) 

AND 

1,  2) 

OR 

SHL  C PHRASE C L+5 ) 

AND 

1,  1) 

OR 

* PHRASE CL+6) 

AND 

1.', 

ADDR  = ADDR  OR  SUFFIX; 

IF  C ADDR  AND  OlOOH ) = OlOOH 
THEN  CALL  SETBITC  MWORD, 

35,  4,  0001B>; 

ELSE  CALL  SETBITC.  MWORD, 

35,  4,  00008), 

ADDR  * SHRCADDR,  1); 

MWORD C 5 ) = LOW C ADDR); 
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734 

9 

IF  < ADDR  AND  O001H)  = 0001H 

THEN  CALL  SETBITC.  MWORD, 

39/  1/  1B> 

736 

9 

ELSE  CALL  SETBITC.  MWORD, 

39/  1/  0B> 

737 

9 

GOTO  END128WAV; 

738 

9 

END; 

739 

8 

IF  EQUAL C . F'HRASE+L,  . < 'EOPCODE'  >,  7) 

THEN  DO; 

741 

9 

CALL  SETBITC.  MWORD/  35/  4/  1100B> 

742 

9 

ADDR  = SHRCADDR/ 1>; 

743 

9 

MWORDC5)  = LOW C ADDR >; 

744 

9 

IF  CADDR  AND  0100H>  = 0100H 

THEN  CALL  SETBITC.  MWORD/ 

39,  1/  1B> 

746 

9 

ELSE  CALL  SETBITC.  MWORD, 

39,  1,  0B) 

747 

9 

GOTO  END128WAV; 

743 

9 

END; 

/* 

IF  NONE  OF  THE  ABOVE  THEN  */ 

749 

8 

E = E‘  + 1; 

750 

8 

CALL  ALPHA CLP,  19,  . <'***  ILLEGAL  ", 

SUFFIX:  '> 

751 

S 

CALL  EOL; 

752 

8 

END128WAV : 

END; 

753 

7 

END; 

754 

6 

END© : 

END; 

29 
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755  5 

756  6 

757  6 

75S  6 

760  7 

762  8 

763  8 

764  8 

765  8 

766  8 

767  7 

768  8 

768  8 

770  8 

771  8 

772  8 

773  7 

774  6 

775  7 

776  7 

778  8 

779  3 

780  8 

781  3 

782  3 

783  7 

784  3 

785  8 

786  3 

737  7 

738  6 

790  7 

791  7 

792  7 

793  7 

794  7 

795  6 

797  7 

793  7 

799  7 

300  7 

801  7 

302  6 

304  7 


/ 4<  % * iff * 4:  Jf  .4:  4.  .*  4c  4=  4 4»  f;  4:  jfc  4:  4c  / 

/*  1:  REG  < ? > -PHRASE  +/ 

/ ♦ 4-  4: 4: 4:  4^  4 4 4-  4;  .4:  4 4;  4: 4 ■¥■  * 4-  / 

DO; 

DECLARE  < REGNO-  BADREG.)  BYTE; 

DECLARE  REGDECODE  ADDRESS  AT  C.  REGNO; 

IF  EQUAL < . C # ),.  PHRASE C 4 > • 1 > 

THEN  DO; 

IF  FIELD<0>  AND  EQUBITC.  MWORD,  4,  1,  0B> 

THEN  DO; 

E = E + ; 

CALL  ALF  A CLP, 37,  . <-***  CONFLICTING  ', 
'SPECIF1  AT ION  FOR  RS.  ')); 

CALL  EOL 
GOTO  END 
END; 

ELSE  DO; 

REGNO  = 0; 

BADREG  = 0; 

CALL  SETBITC.  MWORD,  4,  1,  IB); 

F I ELD  CCD  = @FFH; 

END; 

END; 

ELSE  DO; 

REGDECODE  = ASC 1 1 2B I N C PHRASE c 4 > > ; 

IF  F I ELDC0;  AND  EQUBITC.  MWORD, 4, 1, 16) 

THEN  DO; 

\ E = E + 1; 

CALL  ALPHA CLP, 37,  . <"***  CONFLICTING  ', 

" SPECIFICATION  FOR  RS.  ')>; 

CALL  EOL; 

GOTO  END1; 

END; 

ELSE  DO; 

CALL  SETBITC.  MWORD,  4,  1,  0B>; 

FI£LDCO>  = 0FFH; 

END; 

END; 

IF  BADREG 
THEN  DO; 

E = E + 1; 

CALL  ALPHA CLP,  19,  . C'***  INVALID  REG- ID.  ')>; 

CALL  EOL; 

GOTO  END1; 

END; 

IF  F I ELD C 13)  AND  NOT  EQUBITC.  MWORD,  0,  4,  REGNO) 

THEN  DO; 

E = E + 1; 

CALL  ALPHACLP,  23,  . <•-***  CONFLICTING  REG- ID.  ')>; 
CALL  EOL; 

GOTO  END1; 

END; 

IF  EQUAL < . C ALC  ■'),  . PHRASEC7),  4)  /*  REGCR)  = ALC  */ 

THEN  DO; 

IF  F I ELD C 16)  AND  NOT  EOUBITC  MWORD,  9,  1,  IB) 
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THEN  DO; 


SG6 

8 

E = E + 1; 

8G7 

8 

CALL  ALPHA <LP, 52,  . <'***  CONFLICTING 
'SPECIFICATION  FOR  M2.  PHRASE  IGNORED 

80S 

8 

CALL  EOL; 

8G9 

8 

GOTO  END1; 

S10 

8 

END; 

811 

“9 

1 

ELSE  DO; 

812 

8 

FI  ELD  (13.';  = 0FFH; 

813 

8 

CALL  SETBI T (.  MWORD,  0,  4,  REGNO}; 

814 

8 

FI ELD (16}  = GFFH, 

815 

8 

CALL  SETBITC.  MWORD,  9,  1,  16>; 

S16 

8 

GOTO  END1; 

817 

8 

END; 

818 

7 

END; 

819 

6 

IF  EQUAL (.  ( SHIFTER  '},.  PHRASE (7}, 8} 

THEN  DO; 

821 

7 

IF  FI ELD <12}  AND  NOT  EQUBIT (.  MWORD,  9,  1,  06} 
THEN  DO; 

822 

8 

E = E + 1; 

824 

8 

CALL  ALPHA CLP, 53,  . ('***  CONFLICTING 
'SPECIFICATION  FOR  M2.  PHRASE  IGNORED. 

825 

8 

CALL  EOL; 

826 

8 

GOTO  END1; 

827 

S 

END; 

828 

7 

ELSE  DO; 

829 

g 

F I ELD ( 12},  FI ELD <16}  = OFFH; 

83G 

3 

CALL  SETBITC  MWORD,  G,  4,  REGNO}; 

831 

3 

CALL  SETBITC  MWORD,  9,  1,  GB } ; 

S 

GOTO  END1; 

832 

g 

END; 

834 

»"’ 

END; 

IF  NONE  OF  THE  ABOVE  THEN  */ 

835 

6 

E = E + 1; 

826 

5 

CALL  ALPHA (LP,  20,  . ('***  ILLEGAL  PHRASE:  '}); 

837 

6 

CALL  ALPHA <LF‘,  3”2,  PHRASE}; 

838 

6 

CALL  EOL; 

839 

6 

END1  END; 
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840  5 

S41  6 

842  6 

843  6 


845  7 

847  8 

848  8 

S50  8 


851  8 

852  8 

853  8 

854  3 

855  8 

856  8 

857  8 

858  8 

858  8 

860  8 

861  7 

862  8 

S63  8 

865  8 

866  8 


867  8 

868  8 

868  8 
870  8 

371  8 

872  8 

873  8 

374  8 

875  7 

877  8 

878  8 

878  3 

830  8 

881  8 
882  7 

884  3 

835  8 


/ Jf: 

2:  P1B-PHRRSE  +/ 

DO.; 

DECLARE  < REGNO,  BADREG)  BVTE; 

DECLARE  REGDECODE  ADDRESS  AT  C.  REGNO, 

IF  EQUAL C . < ' REG< ' > , . PHRASE < 4 ) , 4 > AND 
EQUAL <.<')'  > , . PHRASE C 8 ) , 1 ) 

THEN  DO, 

IF  PHRASECS)  = 

THEN  DO; 

IF  FIELD<0>  AND  EQUBITC.  MWORD,  4, 1,  OB) 

THEN  DO; 

E = E + 1; 

CALL  ALPHA  CLP,  37,  . <'***  CON', 
'FLICTING  SPECIFICATION  FOR', 

' RS.  ')); 

CALL  EOL; 

GOTO  END2, 

END; 

ELSE  DO; 

REGNO  = 0; 

BADREG  — O; 

CALL  SETBITC.  MWORD,  4,  1,  1B>; 
FIELDCO)  = @FFH; 

END; 

END; 

ELSE  DO; 

REGDECODE  = ASC 1 1 2B I N C PHR ASE  C 8 ) ) ; 

IF  F I ELD < 0 > AND  EQUBITC.  MWORD,  4,  1, IB) 

THEN  DO; 

E = E + 1; 

CALL  ALPHACLP, 37,  . C'***  CON  , 
'FLICTING  SPECIFICATION  FOR', 

' RS.  ')); 

CALL  EOL; 

GOTO  END2; 

END; 

ELSE  DO; 

CALL  SETBITC  MWORD,  4,  1,  OB); 

F I ELD  C 0 > = OFFH; 

END; 

END; 

IF  BADREG 
THEN  DO; 

E = E + 1; 

CALL  ALPHACLP,  18,  . C '***  INVALID  REG  ID')); 
CALL  EOL; 

GOTO  END2; 

END; 

IF  F I ELD C 13)  AND  NOT  EQUBITC.  MWORD,  0,  4,  REGNO) 

THEN  DO; 

E * E + 1; 

CALL  ALPHACLP, 23,  . C'*+*  CONFLICT', 

'ING  REG- ID.  ')); 
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ss* 

8 

CALL  ECU 

887 

8 

GOTO  END2; 

888 

8 

END; 

889 

7 

ELSE  DO; 

890 

8 

FIELD<13>  = OFFH- 

891 

8 

CALL  SETS  IT  <.  MWORD-  O,  4,  REGNO; 

892 

8 

END; 

892 

? 

IF  FIELDdl}  AND  NOT  EQUBITC  . MWORD-  18,  !.•  0B> 

THEN  DO; 

895 

8 

E = E + 1; 

898 

3 

CALL  ALPHA .'LP- 53- . (.'***  CONFLICTING  SPEC 
' I F I CAT I ON  FOR  SI  PHRASE  IGNORED.  ">>- 

897 

<=• 

CALL  EOL; 

;T|q,C| 

o 

GOTO  END2; 

899 

© 

END; 

900 

7 

ELSE  DO; 

901 

8 

CALL  SETBITC.  NWORD-  18..  2-  10B>; 

902 

0 

FIELD<11>  = 0FFH; 

903 

8 

GOTO  END2; 

904 

© 

END; 

905 

END; 

988 

G 

IF 

EQUAL  C.  < ' D I PHRASE <4 >-  3> 

THEN  DO; 

90S 

IF  FIELD  <11>  AND  NOT  EQUBITC  MWORD- 18- 1- 0B> 

THEN  DO; 

918 

o 

E = E + 1; 

911 

o 

CALL  ALPHA <LP-  S3-  . <'•***  CONFLICTING 
-SPECIFICATION  FOR  SI.  PHRASE  IGNORED.  ' > 

912 

8 

CALL  EOL; 

913 

o 

GOTO  END2; 

914 

8 

END; 

915 

i 

ELSE  DO; 

916 

8 

FIELD<11I>  = 0FFH; 

917 

8 

P1BD I F'HRASEPRESENT  = OFFH; 

918 

s 

CALL  SETBIT <.  NWORD,.  18-  2-  01B>- 

919 

8 

GOTO  END2; 

920 

8 

END- 

921 

7 

END; 

922 

6 

IF 

EQUAL <.  < '0  PHRASE<4>-2> 

THEN  DO; 

924 

7 

IF  FIELD<11>  AND  NOT  EQUBITC.  MWORD-  IS-  1-  0B> 

THEN  DO; 

926 

8 

E * E + 1; 

927 

8 

CALL  ALPHA CLP- 53-  . <'***  CONFLICTING  '- 
'SPECIFICATION  FOR  SI  PHRASE  IGNORED. 

928 

8 

CALL  EOL; 

929 

8 

GOTO  END2; 

930 

8 

END; 

931 

y 

ELSE  DO; 

932 

8 

FIELD<11>  = OFFH; 

933 

8 

F'lBDI  F’HRASEPRESENT  = OFFH; 

934 

8 

CALL  SETBIT < NWORD-  18-  2-  01B>; 

935 

3 

CALL  SETBIT <.  NWORD-  20-  1-  1B>; 

936 

8 

GOTO  END2; 

937 

8 

END; 

928 

•* 

r 

END; 

/* 

IF 

NONE  OF  THE  ABOVE  THEN  */ 

I 


J 
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6 

E = E + li 

940 

6 

COLL  ALPHA v LP. 

941 

6 

COLL  ALPHA -LP 

942 

6 

COLL  EOL; 

943 

6 

END2 . END; 
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/ * * * * t:  * * * * * * *4 : * it:  * :*/ 

/*  3:  P2B-PHRASE  */ 

/its****.***** :+:  * * * it:  :t:  */ 

DO; 

DECLARE  C REGNO, BADREG?  BVTE; 

DECLARE  REGDECODE  ADDRESS  BTC.  REGNO?; 

IF  EQUAL C.  C 'P£B  PHRASE C 4.?;  4? 

THEN  DO; 

IF  CFIELDCll)  AND  NOT  EQUBIT<.  MWORD;  18;  1,  8B>>  OR 

<FIELD<  7?  AND  NOT  EQUBITC.  MWORD,  IS;  1;  OB? ) OR 

<FIELD<  S>  AND  NOT  EQUBITC.  MWORD..  17;  1;  IB?  > 

THEN  DO; 

E = E + 1; 

CALL  ALPHA  CLP,  58;  . C •'***  CONFLICTING 
'SPECIFICATION  FOR  A OR  Si.  PHRASE  ", 
'IGNORED.  ■'??; 

CALL  EOL; 

GO  TO  ENDS; 

END; 

ELSE  DO; 

FI  ELD  <7.?,  FIELD  C 8 ? = 0FFH; 

CALL  SETBITc.  MHORD,  16,  2,  01B>; 

F I ELD < 11?  = OFFH, 

CALL  SETBITC.  MWORD,  18,  2,  ©IB?, 

GOTO  ENDS, 

END; 

END; 

I F EQUAL C . < ' D I ' ? , . PHRASE  < 4 ? , 3 ? 

THEN  DO; 

IF  CFIELDCll?  AND  NOT  EQUBITC.  MWORD,  18,  1,  IB? ? OR 
C FIELDC 7?  AND  FIELDC 8? 

AND  EQUBITC.  MWORD,  16,  2,  ©IB?  ? 

THEN  DO; 

E = E + 1; 

CALL  ALPHA CLP,  59,  . C'***  CONFLICTING  ', 
'SPECIFICATION  FOR  A OR  SI.  PHRASE 
'IGNORED.  '>?; 

CALL  EOL; 

GOTO  ENDS; 

END; 

ELSE  DO; 

N0TAD1  = OFFH; 

FIELDC 11?  = OFFH; 

CALL  SETBITC.  MWORD,  18,  2,  10B>; 

GOTO  ENDS; 

END; 

END; 

I F EQUAL C . C ' ® PHRASE C 4 ? , 2 ? 

THEN  DO; 

IF  CFIELDCll?  AND  NOT  EQUBITC  MWORD, 18, 1,  IB? ? OR 
C F I ELD C 7?  AND  FIELDC8? 

AND  EQUBITC.  MWORD,  16,  2,  01B? ) 

THEN  DO; 

E = E + 1; 

CALL  ALPHA  CL'',  59,  . <•'***  CONFLICTING  ', 
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SPECIFICATION  FOR  A OR  SI-  PHRASE  ", 
IGNORED.  >); 


986 

8 

CALL  EOL; 

•?S7 

s 

GOTO  END 3 ■ 

888 

3 

END; 

98'? 

p 

ELSE  DO; 

9 90 

@ 

NOT  ADI  = OFFH, 

991 

3 

F I ELD C 11  = OFFH; 

992 

o 

CALL  SETBIT <.  MWORD,  18,  2,  10B>; 

993 

8 

CALL  SETBIT <.  MWORD,  20,  1,  1B>; 

994 

GOTO  ENDS; 

995 

y 

END; 

996 

p 

END; 

997 

*•' 

IF  EQUAL  C.  ’ 
EQUALC.  - 
THEN  DO; 

' REG < •' . PHRASE <4>,  4>  AND 

CO  ' ),  PHRASE -C 9 ),  21- 

999 

7 

IF 

PHRASE  <8 > = 

THEN  DO; 

1001 

o 

IF  FIELD < O AND  EQUBI TO  MWORD,  4,  1,  OBI- 
THEN  DO; 

1003 

Cl 

E = E + 1; 

1004 

Cl 

CALL  ALPHA -CLP,  27,  ***  CON", 

FLICTING  SPECIFICATION  FOR", 

RS.  >>; 

1005 

9 

CALL  EOL - 

1006 

9 

GOTO  ENDS; 

1007 

9 

END; 

1008 

g 

ELSE  DO; 

1009 

9 

REGNO  = 0; 

1010 

9 

BADREG  = U; 

1011 

9 

CALL  SETBIT O MWORD,  4,  1,  1B>; 

1012 

9 

FIELD<0>  = OFFH, 

1013 

9 

END; 

1014 

C; 

END; 

1015 

P 

ELSE  DO; 

1016 

© 

REGDECODE  = ASCII2BI N < PHRASE -C 8 ) ) ; 

1017 

3 

IF  FI  ELD -CO;:-  AND  EQUBI TO  MWORD,  4,  1,  IB) 

THEN  DO; 

1019 

9 

E = E + 1; 

1020 

9 

CALL  ALPHA  CLP,  37,  . <'***  CON", 
'FLICTING  SPECIFICATION  FOR", 

'•  RS.  ')>; 

CALL  EOL; 

1021 

9 

1022 

9 

GOTO  END3; 

1022 

9 

END; 

1024 

o 

ELSE  DO; 

1025 

9 

CALL  SETBIT <.  MWORD,  4.  1,  OB); 

1026 

9 

FI ELD CO)  = OFFH, 

1027 

9 

END; 

1028 

© 

END; 

1029 

7 

IF 

BADREG  OR  C REGNO  > 7) 

THEN  DO; 

1031 

© 

E = E + 1; 

1032 

8 

CALL  ALPHA < LP,  18 . -C  ' *+*  I NVAL I D REG-  ID')); 

1033 

8 

CALL  EOL; 

1034 

o 

GOTO  END2; 

1035 

o 

END; 
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1035 

r 

ELSE  DO; 

103? 

s 

CALL  SETBITC.  MWORD,  5,  3,  REGNO  >J 

1035 

s 

FIELDC14>  = OFFH; 

1039 

8 

END.: 

1040 

P2BREGPHRASEPRESENT  = 0FFH; 

1041 

7 

GOTO  END 3.: 

1042 

<■ 

/* 

END.; 

IF  HONE  OF  THE  ABOVE  THEN  */ 

1043 

6 

E * E + 1; 

1044 

6 

CALL  ALPHA CLP,  20,  . <-***  ILLEGAL  PHRASE'  '>>; 

1045 

6 

CALL  ALPHA  CLP,  20,  . PHRASE), 

1046 

6 

CALL  EOL.i 

104? 

6 

END 3 . END.: 
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/*  4 OO-PHRASE  */ 

/ + * 4:  * * + :f  * * * 4; .+ * * * / 


1048 

er 

DO; 

1048 

t- 

IF  EQUfiL < . C'OFF  PHRRSEC3 >.•  4> 

THEN  DO; 

1051 

7* 

CALL  SETBITC.  MWORD,  8,  1,  OB > ■ 

1052 

-? 

GOTO  END  4; 

1053 

•y 

END; 

1054 

6 

I F EQUAL  C . C ■'  ALC  ' > , . PHRASE  C 3 > , 4 ) 

THEN  DO; 

1056 

f 

IF  F I ELD <16}  AND  EQUBITC.  MWORD,  9,  1, IB)  AND 
FIELD;'.  17 > AND  EQUBITC.  MWORD ■ 10.  1,  IB) 

THEN  DO; 

1058 

8 

E = E + 1, 

1058 

8 

CALL  ALPHA CLP,  53, . C'***  CONFLICTING  ", 
'"SPECIFICATION  FOR  M.  PHRASE  IGNORED.  ", 

1060 

8 

CALL  EOL; 

1061 

c» 

GOTO  END4; 

1062 

o 

END; 

1062 

7 

ELSE  DO; 

1064 

8 

DOALCPHRASEPRESENT  = OFFH; 

1065 

© 

CALL  SETBITC.  MWORD,  8,  1,  IB), 

1066 

8 

GOTO  END4; 

1067 

8 

END; 

1068 

7 

END; 

1069 

6 

IF  EQUAL C.  C'PIB  ' . PHRASE < 3),  4) 

THEN  DCU 

1071 

IF  F I ELD C 16 ) AND  NOT  EQUBITC.  MWORD,  9,  1, IB)  OR 
FIELDC17)  AND  NOT  EQUBITC.  MWORD, 18, 1,  IB)  OR 
FIELD CIS)  AND  NOT  EQUBITC.  MWORD,  11,  1,  IB) 

THEN  DO; 

1073 

8 

E = E + 1; 

1074 

8 

CALL  ALPHA  CLP,  53,  . C"***  CONFLICTING 
"SPECIFICATION  FOR  M.  PHRASE  IGNORED.  ' ) 

1075 

8 

CALL  EOL, 

1076 

g 

GOTO  END4; 

1077 

3 

END; 

1078 

7 

ELSE  DO;, 

1079 

8 

FIELDC16),  FIELDC17),  FIELD CIS)  = OFFH; 

1080 

8 

CALL  SETBITC.  MWORD,  9,  3,  111B); 

1081 

o 

CALL  SETBITC  MWORD,  8,  1,  IB); 

1082 

8 

GOTO  END4; 

1082 

o 

END; 

1084 

i 

END; 

1085 

6 

IF  EQUAL C.  C "'P2B  ' ) , . PHRASE C 3 ) , 4 ) 

THEN  DO; 

1037 

7 

IF  FIELDC16)  AND  NOT  EQUBITC  MWORD,  9,  1- IB)  OR 
FIELDC17)  AND  NOT  EQUBITC.  MWORD,  10,  1,  IB)  OR 
FI ELD CIS)  AND  NOT  EQUBITC.  MWORD, 11,  1,  OB) 

THEN  DO, 

1089 

8 

E = E + 1; 

1090 

p 

CALL  ALPHA  CLP,  53,  . C "'***  CONFLICTING  ", 
'SPECIFICATION  FOR  M.  PHRASE  IGNORED.  " ) 

1091 

8 

CALL  EOL; 
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1092 

8 

GOTO  END4; 

loss 

8 

END.: 

1094 

i 

ELSE  DO: 

1095 

8 

FIELDCISX.  FIELD<17>/  FIELD<18>  = OFFH; 

1096 

S 

CALL  SETBITC.  MWORD.  9,  3,  HOB); 

1097 

8 

CALL  SETBIK.  MWORD,  8,  1,  1B>; 

1098 

o 

GOTO  END4; 

1099 

0 

END; 

1100 

"7 

i 

END; 

IF  NONE  OF  THE  ABOVE  THEN  */ 

1101 

6 

E = E + 1,- 

1102 

s 

CALL  ALPHA  CLP.- 20.  . <'***  ILLEGAL  PHRASE:  ')>, 

1103 

6 

CALL  ALPHA  CLP.  32..  . PHRASE  >; 

1104 

6 

CALL  EOL; 

1105 

6 

END4 . END; 

/ 
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/*  5:  RLC-PHRRSE  */ 

/**;>+:  **::*;*:*::+:  *4;*: 

110S  5 DO; 

110?  6 I = 32;  /*  POINT  TO  END  OF  PHRASE  */ 

110S  6 DO  WHILE  PHRASE < I } = ' -;  /*  UNTIL  LAST  CHAR  */ 

1109  7 1 = 1-1; 

1110  7 END; 

/*  NOW  PHRASE < I > IS  LAST  NON-BLANK  CHAR  IN  PHRASE  */ 

1111  6 IF  EGUALC.  <"-P2B'>,  . PHRASE+I-3,  4) 

THEN  DO; 

1113  7 IF  I <25 

THEN  DO; 

1115  8 PHRASE < I-3>  = ' + '; 

1116  8 PHRASE < I-2>  = '; 

1117  8 PHRASE < I -1>  = 'N'; 

1118  8 PHRASE < I > = 'O  '; 

1119  8 PHRASE a +1>  = 'T'i 

1120  8 PHRASE < I+2>  = '.  '; 

1121  8 PHRASE <1 +3 > = 'P '; 

1122  8 PHRASE U +4 > = '2'; 

1123  8 PHRASE <1 +5)  = 'B'; 

1124  8 PHRASE <1 +6)  = '+"; 

1125  8 PHRASE < I +75  = 'C'; 

1126  8 PHRASE a +8 > = 'O'; 

1127  8 1 = 1 + 8; 

1128  8 END; 

1129  7 ELSE  DO; 

1130  8 E = E + 1; 

1131  8 CALL  ALPHA<LP,  20,  . <'***  ILLEGAL', 

' PHRASE:  '>>; 

1132  8 CALL  ALPHA CLP,  32,  . PHRASE); 

1133  8 CALL  EOL; 

1134  8 GOTO  ENDS; 

1135  8 END; 

1136  7 END; 

1137  6 IF  EQUALO  <'+C0'>, . PHRASE+I-2,  3) 

THEN  DO; 

1139  7 1 = 1 - 3; 

1140  7 CALL  SETBIT<.  MWORD,  26,  2,  01B>; 

1141  7 END; 

1142  6 IF  EQUAL  <.  < '+COUT' . PHRASE+I-4, 5> 

THEN  DO; 

1144  7 1=1-5; 

1145  7 CALL  SETBITC.  MWORD,  26, 2,  10B>; 

1146  7 END; 

1147  6 IF  EQUAL <.<'+.  NOT.  COUT'J, . PHRASE+ 1-9,  10 > 

THEN  DO; 

1149  7 1=1-  10; 

115©  7 CALL  SETBITC  MWORD, 26, 2,  11B>; 

1151  7 END; 

1152  6 IF  EQUAL <.  <'0'), . PHRASE+1, 1> 

THEN  DO; 

1154  7 IF  FI ELD <20>  AND  NOT  EQUBITC.  MWORD,  13, 1,  1B> 

THEN  DO; 
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1156  S 

1157  8 

1158  8 

1159  8 

1160  8 

1161  7 

1162  8 

1163  8 

1164  8 

1165  8 

1166  8 

1167  7 

1168  6 

1170  7 


1172  8 

1173  8 

1174  8 

1175  8 

1176  8 

1177  7 

1178  8 

1179  8 

1180  8 
1181  8 
1182  8 

1183  7 

1184  6 

1186  7 


1188  8 
1189  8 

119©  8 

1191  8 

1192  8 

1193  7 

1194  8 

1195  8 

1196  8 

1197  8 

1198  8 

1199  7 

1200  6 

1201  6 
1202  6 

1203  6 

1204  6 

1205  6 


E = E ♦ 1; 

CALL  ALFHACLP,  52,  . ("***  CONFLICTING  ", 

' SPECIFICATION  FOR  0.  PHRASE  IGNORED.  ' > 
CALL  EOL; 

GOTO  END5; 

END; 

ELSE  DO; 

F I ELD1;  20  > = ©FFH; 

CALL  SETBITC.  MWORD,  13,  1,  1B>; 

1 = 1-1; 

GOTO  ENDRIGHT; 

END; 

END; 

IF  EQUAL <.  (".  NOT.  P2B  >,  . PHRASE+I-7,  8> 

THEN  DO; 

IF  (FIELD (19>  AND  NOT  EQUBITC.  MWORD,  12,  1,  0EO > OR 
<FIELD(2©>  AND  NOT  EQUBITC.  MWORD,  13,  1,  0B> > 
THEN  DO; 

E = E + 1; 

CALL  ALPHA CLP, 52,  . < ***  CONFLICTING  ", 
'SPECIFICATION  FOR  D.  PHRASE  IGNORED.  ">>; 
CALL  EOL; 

GOTO .ENDS; 

END; 

ELSE  DO; 

FIELDC19},  FIELD C 20  > = 0FFH; 

CALL  SETBITC.  MWORD,  12,  2- 08B>; 

1 = 1-8; 

GOTO  ENDRIGHT; 

END; 

END; 

IF  EQUAL C.  C"P2B">,  . PHRASE+I-2,  3) 

THEN  DO; 

IF  C F I ELDC19 > AND  NOT  EQUBITC.  MWORD,  12,  1,  IB > > OR 
CFIELDC20';  AND  HOT  EQUBITC.  MWORD,  13,  1,  0B> > 
THEN  DO; 

E = E + 1; 

CALL  ALPHA CLP, 52,  . ("***  CONFLICTING  ", 
"SPECIFICATION  FOR  D.  PHRASE  IGNORED.  ">>, 
CALL  EOL; 

GOTO  ENDS; 

END; 

ELSE  DO; 

FIELDC19>,  FI ELD (20;  = OFFH; 

CALL  SETBITC.  MWORD,  12,  2,  10B>, 

1 = 1-  3; 

GOTO  ENDRIGHT; 

END; 

END; 

/*  IF  NONE  OF  THE  ABOVE  THEN  */ 

E = E + 1; 

CALL  ALPHA CLP, 20,  . <"***  ILLEGAL  PHRASE:  ">); 

CALL  ALPHA CLP,  32,  . PHRASE >; 

CALL  EOL; 

GOTO  ENDS; 

ENDRIGHT: 

IF  EQUAL <.  <"P1B">,  . PHRASE C4>,  3>  AND  I>6 
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1207 

1 

THEN  DO; 

IF  NOT  FIELD(19)  OR  EQUBIT(.  MWORD,  12,  2, 10B> 

1209 

8 

THEN  DO; 

FI ELD (19)  = 0FFH; 

1210 

8 

CALL  SETBIT <.  MWORD,  12, 1,  16 >; 

1211 

8 

GOTO  ENDLEFT; 

1212 

8 

END; 

1213 

•y 

i 

IF  FI ELD (19)  AND  EQUBIT <.  MWORD,  12,  2,  00B> 

1215 

8 

THEN  DO; 

/*  OK  AS  IS  */ 

GOTO  ENDLEFT; 

1216 

8 

END; 

1217 

7 

END; 

1218 

6 

IF  EQUALC  (".  NOT  FIB"),  . PHRASE<4>,  8)  AND  I>11 

1220 

7 

THEN  DO; 

IF  <FIELD(19)  AND  EQUBIT (.  MWORD,  12,  1,  IB)  > OR 

1222 

8 

(FIELD(20)  AND  EQUBIT(.  MWORD,  13,  1,  0B) > 
THEN  DO; 

E = E + 1; 

1223 

8 

CALL  ALPHA CLP, 52,  . ( "***  CONFLICT  ', 

1224 

8 

" I NG  SPECIFICATION  FOR  D.  PHRASE", 

" IGNORED.  ">); 

CALL  EOL; 

1225 

3 

GOTO  ENDS; 

1226 

o 

o 

END; 

1227 

7 

ELSE  DO; 

1228 

8 

FI ELD (19),  FI ELD (20)  = 0FFH; 

1229 

O 

CALL  SETBIT (.  MWORD,  12,  2,  01B); 

1230 

8 

GOTO  ENDLEFT; 

1231 

8 

END; 

1232 

i* 

END; 

1233 

6 

2* 

IF  NONE  OF  THE  ABOVE  THEN 

E = E + 1; 

1234 

CALL  ALPHA (LP,  20,  . <"***  ILLEGAL  PHRASE:  )); 

1235 

6 

CALL  ALPHA (LP,  32,  . PHRASE); 

1236 

6 

CALL  EOL; 

1237 

6 

GOTO  ENDS; 

1238 

6 

ENDLEFT 

1240 

7 

IF  EQUAL (.  ("  + '),.  PHRASE+I,  1) 

THEN  DO; 

IF  FI ELD (7)  AND  NOT  EQUBIT (.  MWORD,  16,  1,  0B) 

1242 

0 

THEN  DO; 

E = E + 1; 

1243 

© 

CALL  ALPHA (LP, 52,  . ("***  CONFLICTING 

1244 

b 

'SPECIFICATION  FOR  A.  PHRASE  IGNORED. 
CALL  EOL; 

1245 

O 

GOTO  ENDS; 

1246 

© 

END; 

1247 

«■’ 

ELSE  DO; 

1248 

8 

FIELD(7)  = 0FFH; 

1249 

8 

CALL  SETBIT (.  MWORD,  16,  1,  OB), 

1250 

8 

GOTO  ENDS, 

1251 

C; 

END; 

1252 

7 

END; 

1253 

8 

IF  EQUAL-:.  ( OP"),  . PHRASE+I -1,  2) 

1255 

r 

THEN  DO, 

IF  FIELD' 7)  AND  NOT  EQUBIT(.  MWORD,  16,  1,  IB)  01 
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125?  8 

1258  8 

1259  S 

1260  8 
1261  8 

1262  7 

1263  8 

1264  8 

1265  8 

1266  8 
126?  ? 
1268  6 

1270  ? 


12?2  8 

1273  8 

1274  8 

1275  8 

1276  8 

1277  7 

1278  8 

1279  8 

1280  8 
1281  8 

1282  7 

1283  6 

1284  6 

1235  6 

1286  6 
1237  6 


FIELD<8>  AND  NOT  EQUBITC.  MWORD, 17/  1,  IB) 

THEN  DO; 

E = E + 1; 

CALL  ALPHACLP, 52,  . <"***  CONFLICTING  ", 
"SPECIFICATION  FOR  A.  PHRASE  IGNORED.  ">>; 
CALL  EOL; 

GOTO  ENDS; 

END; 

ELSE  DO; 

FIELD<7>,  FIELD<8>  = 8FFH; 

CALL  SETBITC.  MWORD,  16,  2,  11B>; 

GOTO  ENDS; 

END; 

END; 

IF  EQUALC.  < "AND" >,  . PHRASE+I-2, 3> 

THEN  DO; 

IF  FIELD<7>  AND  NOT  EQUBIT <.  MWORD, 16,  1,  1B>  OR 
FIELD<8>  AND  NOT  EQUBIT <.  MWORD,  17,  1,  0B> 

THEN  DO; 

E = E + 1; 

CALL  ALPHA <LP,  52,  . <"***  CONFLICTING  ", 
"SPECIFICATION  FOR  A.  PHRASE  IGNORED.  ">>; 
CALL  EOL; 

GOTO  ENDS, 

END; 

ELSE  DO; 

FIELD<?>,  FIELD<8>  = 0FFH; 

CALL  SETBIT <.  MWORD,  16,  2,  10B.V; 

GOTO  ENDS; 

END; 

END; 

/*  IF  NONE  OF  THE  ABOVE  THEN  */ 

E = E + 1; 

CALL  ALPHA CLP, 20,  . < "***  ILLEGAL  PHRASE:  ">); 

CALL  ALPHA CLP, 32,  . PHRASE >; 

CALL  EOL; 

ENDS : END; 
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1288  5 

1289  6 

1291  7 


1293  8 

1294  8 


1295  8 

1298  S 

1297  8 

1298  7 

1299  8 

1300  8 

1301  8 

1302  8 

1303  8 

1304  8 

1305  7 

1308  6 

1308  7 


1310  8 

1311  8 


1312  8 

1313  8 

1314  8 

1315  7 

1316  8 

1317  8 

1318  8 

1319  8 

1320  8 

1321  7 

1322  6 

1324  7 


1326  8 

1327  8 


/Si***  ft*********  He*******/' 

/+  6:  SHIFTER-PHRASE  */ 

/*********•*****:**’ f :****/ 

DO; 

IF  EQUAL <.  <'0  '),  . PHRASEC8),  2> 

THEN  DO; 

IF  FIELDC17)  AND  NOT  EQUBITC.  MWORD,  10,  1,  0B>  OR 
FI ELD CIS)  AND  NOT  EQUBITC.  MWORD,  11,  1,  0B)  OR 
FIELDC11)  AND  NOT  EQUBITC.  MWORD,  18,  1,  0B> 
THEN  DO; 

E = E + 1; 

CALL  ALPHACLP,  57-  . <'***  CONFLICTING  ", 
'SPECIFICATION  FOR  M OR  S.  PHRASE  IG', 
'NORED.  ')>; 

CALL  EOL; 

GOTO  END6; 

END; 

ELSE  DO; 

FIELDC17),  FIELDC18),  FIELD<11)  = 0FFH; 
CALL  SETBITC.  MWORD, 10,  2, 00B); 

CALL  - SETBIT <.  MWORD,  18,  2,  01B); 

CALL  SETBIT C.  MWORD,  20,  1,  IB.); 

GOTO  END6; 

END; 

END; 

IF  EQUAL<.  <'DI  '),  . PHRASE < 8),  3) 

THEN  DO; 

IF  F I ELD C 17)  AND  NOT  EQUBITC.  MWORD, 10,  1,  OB)  OR 
FI ELD CIS)  AND  NOT  EQUBITC.  MWORD,  11,  1, 0B)  OR 
F I ELD <11 ) AND  NOT  EQUBITC.  MWORD,  18,  1,  OB) 
THEN  DO; 

E = E + 1; 

CALL  ALPHA CLP, 57,  . <'***  CONFLICTING  ', 
'SPECIFICATION  FOR  M OR  S.  PHRASE  IG', 
'NORED.  ')); 

CALL  EOL; 

GOTO  END6; 

END; 

ELSE  DO; 

FIELDC17),  FIELDC1S),  FIELDCll)  = 0FFH; 
CALL  SETBITC.  MWORD,  10,  2,  OOB); 

CALL  SETBITC.  MWORD,  18,  2,  01B); 

GOTO  ENDS; 

END; 

END; 

I F EQUAL C . < ALC  < 6-0 ) SSO  ' > , . PHRASE  C 8 ) , 12 ) 

THEN  DO; 

IF  F I ELD < 17)  AND  NOT  EQUBITC.  MWORD,  10,  1,  OB)  OR 

F I ELD C 18)  AND  NOT  EQUBITC.  MWORD,  11,  1,  IB)  OR 

F I ELD C 2)  AND  NOT  EQUBITC.  MWORD,  14,  \,  IB)  OR 

FIELDC  3)  AND  NOT  EQUBITC.  MWORD,  15,  1,  IB) 

THEN  DO; 

E = E + 1; 

CALL  ALPHA  CLP,  57,.  C '■*•**  CONFLICTING 
'SPECIFICATION  FOR  M OR  C.  PHRASE  IG', 


4 
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132S  8 

1329  8 

1330  S 

1331  7 

1332  S 

1333  8 

1334  8 

1335  8 

1336  8 

1337  7 

1338  6 

1340  7 


1342  8 

1343  S 


1344  8 

1345  8 

1346  8 

1347  7 

1348  8 

1349  3 

1350  3 

1351  8 

1352  8 

1353  7 

1254  6 

1356  7 


1353  8 

1359  8 

1260  8 

1361  3 

1362  3 

1263  7 

1364  3 

1265  3 

1266  3 

1267  8 

1368  7 

1369  6 

1271  7 

I 


'NORED.  ')>; 

CALL  EOL; 

GOTO  END6; 

END; 

ELSE  DO; 

FIELDC  2).  FIELDC  3>. 

FIELDC17).  FIELDC1S)  = 0FFH; 
CALL  SETBITC.  MWORD.  10.  2.  01EO; 

CALL  SETBITC.  MWORD.  14.  2.  11B); 

GOTO  END6; 

END; 

END; 

IF  EQUAL  <.  < ' ALC < 6-0 > SSI  ' >.  . PHRASEC8).  12) 

THEN  DO; 

IF  FIELDC17)  AND  NOT  EQUBIT<.  MWORD.  10.  1.  OB)  OR 

FI ELD CIS)  AND  NOT  EQUBITC.  MWORD.  11.  1.  1B>  OR 

FIELD<  2)  AND  NOT  EQUBITC.  MWORD. 14.  1.  1B>  OR 

FIELDC  20  AND  NOT  EQUBITC.  MWORD.  15.  1.  ©B> 

THEN  DO; 

E = E + 1; 

CALL  ALPHA CLP.  57.  . <"***  CONFLICTING  ' , 
'SPECIFICATION  FOR  M OR  C.  PHRASE  IG'. 
'NORED.  '>>; 

CALL  EOL; 

GOTO  END6; 

END; 

ELSE  DO; 

FIELDS  2>.  FIELDC  3>. 

FIELD<17>.  FI ELD <130  = OFFH; 
CALL  SETBIT MWORD.  10.  2.  01B>. 

CALL  SETBIT <.  MWORD.  14.  2.  10B  ■; 

GOTO  END6; 

END; 

END; 

IF  EQUAL < < ALC < 6-0 > WMXLO I N PHRASE C8>.  17. ) 

THEN  DO. 

IF  F IELD< 17>  AND  NOT  EQUBIT<  MWORD.  10.  1.  0B>  OR 
FIELD<13>  AND  NOT  EQUBITC.  MWORD.  11.  1.  1B> 

THEN  DO; 

E = E + 1; 

CALL  ALPHA CLP.  52.  . <'***  CONFLICTING  '. 
'SPECIFICATION  FOR  M.  PHRASE  IGNORED.  ' ) >; 
CALL  EOL; 

GOTO  END6. 

END. 

ELSE  DO; 

F I ELD  < 17  > . FIELD<18>  = OFFH. 

CALL  SETBIT <.  MWORD.  10.  2.  01B>; 

GOTO  END6; 

END; 

END; 

I F EQUAL < . < ' 0SSALC <7-l>  '>. . PHRASE < 3 > • 12 > 

THEN  DO; 

IF  FIELD<17>  AND  NOT  EQUBITC.  MWORD.  10.  1.  1B>  OR 

FIELD<18>  AND  NOT  EQUBITC.  MWORD.  11.  1.  OB > OR 

FIELDC  2>  AND  NOT  EQUBITC.  MWORD. 14.  1.  IB)  OR 

FIELDC  3)  AND  NOT  EQUBITC.  MWORD. 15. 1. IB) 
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THEM  00; 

1373 

8 

E = E + 1; 

1374 

8 

CALL  ALPHA CLP, 57,  . < '***  CONFLICTING 
'SPECIFICATION  FOR  M OR  C.  PHRASE  IG', 
NORED.  ')); 

1375 

8 

CALL  EOL; 

1376 

8 

GOTO  ENDS; 

1377 

8 

END; 

1378 

7 

ELSE  DO; 

1379 

S 

FIELDC  2),  FIELDC  3), 

FIELDC 17),  FIELDC18>  = ©FFH, 

1389 

8 

CALL  SETBITC.  MWORD,  10,  2,  106>; 

1381 

8 

CALL  SETBITC.  MWORD,  14,  2,  11B); 

1382 

3 

GOTO  END6; 

1383 

8 

END; 

1384 

END; 

1385 

6 

IP 

EQUAL  C . C ' 1SSALC C 7-1 ) . PHRASE C 8 > , 12 ) 

THEN  DO; 

1337 

7 

IF  FIELDC17>  AND  NOT  EQUBITC.  MWORD,  10,  1,  IB;  OR 

FIELDC18>  AND  NOT  EQUBITC.  MWORD,  11,  1,  OB)  OR 

FIELDC  20  AND  NOT  EQUBITC.  MWORD,  14,  1,  IB > OR 

FIELDC  3)  AND  NOT  EQUBITC.  MWORD,  15,  1,  OB > 

THEN  DO;  ■ 

1339 

S 

E = E + 1; 

1390 

8 

CALL  ALPHA CLP, 57,  . C'***  CONFLICTING  ', 
'SPECIFICATION  FOR  M OR  C.  PHRASE  IG', 
'NORED.  ')); 

1391 

8 

CALL  EOL; 

1392 

8 

GOTO  ENDS; 

1393 

8 

END; 

1394 

7 

ELSE  DO; 

1395 

8 

FIELDC  2),  FIELDC  3>, 

FIELDC17),  FI ELD CIS)  = 0FFH; 

1396 

8 

CALL  SETBITC.  MWORD,  10,  2,  10B>; 

1397 

8 

CALL  SETBITC.  MWORD,  14,  2,  10B); 

1393 

8 

GOTO  ENDS; 

1399 

8 

END; 

1400 

7 

END; 

1401 

6 

IF 

EQUAL C . C ' MXH0 1 NWALC C 7-1 ) ' ) , . PHRASE C 8),  17 ) 

THEN  DO; 

1403 

7 

IF  FIELDC 17)  AND  NOT  EQUBITC.  MWORD, 10, 1,  IB)  OR 
FI ELD CIS)  AND  NOT  EQUBITC.  MWORD,  11,  1,  0B) 

THEN  DO; 

1405 

© 

V 

E = E + 1; 

1406 

8 

CALL  ALPHA CLP, 52,  . C'***  CONFLICTING  ', 
'SPECIFICATION  FOR  M.  PHRASE  IGNORED.  ") 

1407 

8 

CALL  EOL; 

1408 

3 

GOTO  ENDS; 

1409 

8 

END; 

1410 

7 

ELSE  DO; 

1411 

8 

FIELDC 17),  FIELDC 18)  = OFFH. 

1412 

8 

CALL  SETBITC.  MWORD,  10.  2,  10B); 

1413 

8 

GOTO  ENDS; 

1414 

o 

END; 

1415 

7 

END; 

1416 

8 

IP 

EQUAL C C •' 00XSALC < 7— 2 > '),  . PHRASEC8),  13) 

THEN  DO; 

I 
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1418 


1420  8 

1421  8 


1422  8 

1422  8 

1424  8 

1425  7 

1426  8 

1427  8 

1428  8 

1428  8 

1430  8 

1431  7 

1422  6 

1424  7 


1436  S 

1437  8 


1438  8 

1438  8 

1440  8 

1441  7 

1442  8 

1443  8 

1444  8 

1445  8 

1446  8 

1447  7 

1443  6 

1450  7 


1452  8 

1453  8 

1454  8 

1455  8 

1456  S 

1457  7 

1458  8 

1458  3 

1460  8 


IF  FIELDC17)  AMO  NOT  EQUBITC.  MWORD,  10,  1,  1B>  OR 
FIELD CIS)  AND  NOT  EOUBIT C.  MWORD,  11, 1, 1B>  OR 
FIELDC  2)  AND  NOT  EQUBITC.  MWORD,  14,  1,  IB)  OR 
FIELD<  3>  AND  NOT  EOUBIT <.  MWORD,  15,  1,  IB) 

THEN  DO; 

E = E 1; 

CALL  ALPHA CLP,  57,  . C"***  CONFLICTING  ", 
"SPECIFICATION  FOR  M OR  C.  PHRASE  IG", 
"NORED.  ")>; 

CALL  EOL; 

GOTO  END6; 

END; 

ELSE  DO; 

FIELDC  2),  FIELDC  3), 

FIELDC 17),  FIELDC 18)  = 0FFH; 
CALL  SETBITC.  MWORD,  10,  2,  11B>; 

CALL  SETBIT  C.  MWORD,  14,  2,  11B); 

GOTO  END6; 

END; 

END; 

IF  EQUAL C C"ll\\ALCC7-2)  " >,  . PHRASEC8), 13) 

THEN  DO; 

IF  FIELDC 17)  AND  NOT  EQUBITC.  MWORD, 10, 1,  IB)  OR 

FIELD C 18  ) AND  NOT  EQUBITC.  MWORD, 11,  1,  IB)  OR 

FIELD'"  2>  AND  NOT  EQUBITC.  MWORD,  14,  1, IB)  OR 

FIELD'"  3)  AND  NOT  EQUBITC.  MWORD,  15,  1,  0B> 

THEN  DO; 

E = E + 1; 

CALL  ALPHA CLP,  57,  . <"***  CONFLICTING  ", 
"SPECIFICATION  FOR  M OR  C.  PHRASE  IG", 
"NORED.  ">>; 

CALL  EOL; 

GOTO  END6; 

END; 

ELSE  DO; 

FIELD'"  2),  FIELDC  3), 

F I ELD C 17),  FI ELD CIS)  = OFFH; 
CALL  SETBIT C.  MWORD,  10,  2,  11B); 

CALL  SETBIT <.  MWORD,  14,  2,  10B>; 

GOTO  ENDS; 

END; 

END; 

I F EQUAL <.  <" MXH1 1 NSNMXH0 1 NWALC C7-2)">,  . PHRASE <8>,  24) 
THEN  DO; 

IF  F I ELD < 17)  AND  NOT  EQUBIT C.  MWORD,  10,  1,  IB)  OR 
FI  ELD CIS)  AND  NOT  EQUBITC.  MWORD,  11,  1,  IB) 

THEN  DO; 

E = E + 1; 

CALL  ALPHA CLP,  52,  . <"**+  CONFLICTING  ", 
•SPECIFICATION  FOR  M.  PHRASE  IGNORED.  ")>, 
CALL  EOL, 

GOTO  END 6; 

END; 

ELSE  DO; 

F I ELD C 17),  FIELD CIS)  = OFFH; 

CALL  SETBIT C.  MWORD,  10,  2,  11B); 

GOTO  ENDS; 
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1461 

8 

END; 

1462 

7 

END; 

/* 

IF  NONE  OF  THE  ABOVE  THEN 

*/ 

1463 

6 

E = E + 1; 

1464 

6 

CALL  ALPHA CLP,  20,  . <'***  ILLEGAL 

PHRASE 

1465 

6 

CALL  ALPHA CLP, 32,  . PHRASE >; 

1466 

6 

CALL  EOL, 

1467 

6 

ENDS : END; 
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♦EJECT 


/ J+;  * jf;  i*  * ♦ * * : ♦ * >f-  4=  * Jf  * J#«  Jf-  =+•  / 

/*  7:  MXLOOUT-PHRflSE  */ 

/ ♦ .<+:  Jf: * : }f : * sf:  :*  *:  jf;  >f : * * jf-  .•+:  * : / 


1468 

5 

OO; 

1469 

6 

IF  EQUALS.  < 'ALC<:®>  ' f,  . PHRASE<8>;  7> 

THEM  00; 

1471 

7 

IF  FIEL0C16)  AMO  MOT  EQUBI TC.  MWORO;  9;  1;  0B>  OR 

FIELD<17>  AMO  NOT  EQUBI T<.  MWORO.  10-  1;  1B> 

THEM  00; 

1473 

8 

E = E + 1; 

1474 

8 

CALL  ALPHA <LP. 53; . <'***  CONFLICTING  ", 

'SPECIFICATION  FOR  M.  PHRASE  IGNORED.  '>>; 

1475 

8 

CALL  EOL; 

1476 

S 

GOTO  END7; 

1477 

8 

EMO; 

1478 

7 

ELSE  00; 

1479 

o 

FIELD  <16?;;  FIEL0<17>  = OFFH; 

1480 

8 

CALL  SETBIT <.  MWORO;  9,  2,  01B>; 

1481 

GOTO  EM07; 

1482 

8 

END; 

1433 

—> 

f 

END; 

1484 

£ 

ELSE 

DO; 

1485 

7 

E = E + 1; 

1436 

y 

CALL  ALPHA <LP;  20; . ('***  ILLEGAL  PHRASE:  ">>> 

1487 

7 

CALL  ALPHA  <LP..  32; . PHRASE  > ; 

1438 

r 

CALL  EOL; 

1489 

Y 

GOTO  END7; 

1490 

7 

END; 

1491 

l»i 

EN07  : EMO; 
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1492 

1493 


149? 


♦EJECT 


/******>»:***>•.'  ********* 

/*  8:  MXL1 OUT-PHRASE  * 


DO; 


I F EQUAL < . < ALC < 1 > PHRASE <&>,?> 

THEN  DO; 

IF  FIELD<16>  AND  NOT  EQIJBITC  MMORD,  9,  1,  OB?  OR 
FIELD<1?>  AND  NOT  EQUBITC  MMORD,  10,  1,  16  > OR 
FIELDCIS?  AND  NOT  EQUBITC  MWORD,  11,  1,  1B> 

THEN  DO; 

E = E + 1; 

CALL  ALPHA CLP, 52,  . <'***  CONFLICTING  ", 
'SPECIFICATION  FOR  M.  PHRASE  IGNORED.  '>>; 
CALl  EOL; 

GOTO  ENDS; 

END; 

ELSE  DO; 

F I ELD  ■'  IS  > , F I ELD  < 17  >,  FI  ELD  < IS  > = OFFH, 

CALL  SETBIT  MWORD,  9,  2..  OllEO; 

GOTO  ENDS; 

END; 

END; 

ELSE  DO; 

E = E + 1, 

CALL  ALFHACLP, 20,  . <'***  ILLEGAL  PHRASE  ; > ; 

CALL  ALPHA CLP. 22,  . PHRASE?; 

CALL  EOL; 

END; 

ENDS : END ; 
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1515  5 

1516  6 

1518  7 


1520  8 

1521  8 


1522  8 

1523  8 

1524  8 

1525  7 


1526 


1527 

1528 


1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 


<3 


REJECT 

/****!♦!*!♦;***:****:**+>*:**+*/ 

/*  9:  MXH0OUT-PHRASE  */ 

>f:  * ^ + + * + + + + / 

DO; 

IF  EQUAL C ( ' ALC < 7 > O,  . PHRASE <8>, 7> 

THEN  DO; 

IF  FI  ELD  <16:;  AND  NOT  EQUBITC.  MWORD,  9,  1,  0B>  OR 
F I ELD < 17 > AND  NOT  EQUBITC.  MWORD, 10, 1,  ©B>  OR 
FIELD<18>  AND  NOT  EQUBITC.  MWORD,  11,  1,  1B> 

THEN  DO; 

E = E + 1; 

CALL  ALPHA CLP, 52,  . <'***  CONFLICTING 
'SPECIFICATION  FOR  M.  PHRASE  IGNORED.  '>>; 
CALL  EOL; 

GOTO  ENDS; 

END; 

ELSE  DO; 

FIELD<16>,  FIELDC17>,  FI ELD CIS)  = @FFH; 
CALL  SETBIT  MWORD,  9,  3,  001B>; 

GOTO  ENDS; 

END; 

END; 

ELSE  DO; 

E = E + 1; 

CALL  ALPHA (LP,  20,  . <'***  ILLEGAL  PHRASE:  '>>; 

CALL  ALPHA  (.LP,  32,  . PHRASE.;; 

CALL  EOL; 

END; 

ENDS : END; 
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1538  5 

1539  6 

1541  7 

1543  S 

1544  8 

1545  3 

1546  8 

1547  7 

1543  3 

1549  8 

1550  S 

1551  7 

1552  6 

1553  7 

1554  7 

1555  7 

1556  7 

1557  7 

1558  6 


/***********  ******  * * * * * / 

/*  10:  MXH10UT -PHRASE  */ 

/********.*******  I*******/ 

DO; 

IP  EQUAL  C.  C ' OFL  PHRASE C8>,  4 > 

THEN  DO; 

IF  F I ELD  C 2 > AND  NOT  EOUBITC.  MWORD,  14,  1,  16  > 

THEN  DO; 

E = E + 1; 

CALL  ALPHA  CLP,  53,  . C'**+  CONFLICTING'', 
■'SPECIFICATION  FOR  C.  PHRASE  IGNORED.  ' >>, 
CALL  EOL; 

END; 

ELSE  DO; 

FI  ELD  <2!;  = SFFH; 

CALL  SETBITC.  MWORD,  14,  1,  1B>; 

END; 

END; 

ELSE  DO, 

E = E + l; 

CALL  ALPHA CLP, 20,  . <'  ***  ILLEGAL  PHRASE:  '>1> 

CALL  ALPHA  CLP,  32,  . PHRASE.-; 

CALL  EOL; 

END; 

END10 : END; 
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1559 

1560 

1562 

1563 

1564 

1565 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 


5 

6 

7 


6 

7 

7 


6 

6 

6 

6 

6 


♦EJECT 

/ * ****:*:*:  ***  *:  4:  Sts*:*** +/ 

/*  11:  CO-PHRASES  */ 

*:  *:  4: * / 

DO  J 

IF  EQUAL <.  C'GPUCOUT  ' >,  . PHRASE <3 >,  S> 

THEN  DO; 

CALL  SETBIT  C.  MWORD, 21,  1,  0B>; 

GOTO  END11; 

END; 

IF  EQUAL <.  <'L2  PHRASE <3 >, 3> 

THEN  DO; 

CALL  SETBIT <.  MWORD,  21,  1,  1B>; 

GOTO  END11; 

END; 

/*  IF  NONE  OF  THE  ABOVE  THEN  */ 

E = E + 1; 

CALL  ALPHA CLP, 20,  . ('+**  ILLEGAL  PHRASE:  '>>; 
CALL  ALPHA CLP,  32,  . PHRASE >; 

CALL  EOL; 

END11 : END; 
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/*  12:  MFLAGS-PHRASES  */ 

/ * 4s  ********  * * * *********  / 


1575 

5 

DO; 

1578 

£ 

I F ' EQUAL  < . < - DISABLE  ' . PHRASE <7>,  8 > 

THEN  DO; 

1578 

7 

CALL  SETBITC  MWORD,  22,  2,  OGBX. 

1579 

7 

GOTO  END 12; 

1580 

7 

END; 

1581 

6 

IF  EQUAL < . < ■" ENABLE < OUT > ' >,  . PHRASE ( 7>,  11> 
THEN  DO; 

1583 

7 

CALL  SETBIT  <.  MWORD,  22,  2,  Ol&O; 

1584 

7 

GOTO  END12; 

1585 

7 

END; 

1586 

6 

I F EQUAL < . v ' ENABLE < SZP > ■'>,  . PHRASE < 7 > , 11  > 
THEN  DO; 

1588 

7 

CALL  SETBITC.  MWORD,  22,  2,  10B>; 

1539 

*7 

l 

GOTO  END12; 

1590 

r 

END; 

1591 

6 

IF  EQUAL C < 'ENABLE CALL > ' . .PHRASE<7>,  11> 

THEN  DO; 

1593 

r 

CALL  SETBITC  MWORD,  22,  2,  11B); 

1594 

7 

GOTO  END12; 

1595 

7 

END; 

/*  IF  NONE  OF  THE  ABOVE  THEN  */ 

1596 

t£. 

E = E + 1; 

1597 

6 

CALL  ALPHA <LP,  20,  . <'***  ILLEGAL  PHRASE:  0>; 

1598 

6 

CALL  ALPHA CLP, 32,  . PHRASE >; 

1599 

6 

CALL  EOL; 

1600 

6 

END12 : END; 
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REJECT 

/********  * * *:*  * * * *.  ***  ■*■■  / 
/*  13:  COUT-PHRASES  */ 
/♦**••********  + + 


1601 

5 

DO.; 

1602 

6 

I F EQUAL < . < COUT  PHRASE <5>;  5 > 

THEN  DO; 

1604 

7 

CALL  SET6ITC.  MWORD,  24..  2,  OOB>; 

1605 

7 

GOTO  END13; 

1606 

7 

END; 

1607 

6 

IF  EQUAL  C.  C ' GF'UCOUT  PHRASE C 5 >,  8> 

THEN  DO; 

1609 

7 

CALL  SETBIT <.  MWORD,  24,  2,  ©1B>; 

1610 

7 

GOTO  END13; 

1611 

7 

END; 

1612 

6 

I F EQUAL < . < ■- DO 7 > PHRASE < 5>,  6> 

THEN  DO; 

1614 

v" 

CALL  SETBIT (.  MWORD,  24,  2,  10B>; 

1615 

GOTO  END13; 

1616 

END; 

1617 

6 

I F EQUAL < . < DO <0>  PHRASE C 5 > , 6 > 

THEN  DO; 

161? 

7 

CALL  SETBIT C. MWORD,  24,  2,  11B>; 

1620 

7 

GOTO  END13; 

1621 

7 

END; 

/*  IF  NONE  OF  THE  ABOVE  THEN  */ 

1622 

£ 

E = E + 1; 

1623 

6 

CALL  ALPHA  CLP,  20,  . C '***  ILLEGAL  F'HRASI 

1624 

6 

CALL  ALPHA CLP, 32,  . PHRASE >; 

1625 

6 

CALL  EOL; 

1626 

6 

END13 : END; 

. 
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162?  5 

1623  6 


1630  7 

1631  7 

1632  7 

1633  7 

1634  6 

1635  7 

1636  7 

163?  7 

1638  6 


♦EJECT 

/ a*:  * * Jt:  jf : jf;  * : .■+: :*  * ;i:  jf;  + 4: 4;  4:  / 

/*  14:  NOLOAD-PHRASE  */ 

>+: :+.  4-'  -f:>:  ■+:  * >f-  + ■+:.+:  :4  + -+:  H .+:  +:  / 

D0.‘ 

IF  F I ELD*:  16 > AND  NOT  EQUBITC.  Ml-IORD,  9,  1,  1B> 
FIELD<17>  AND  NOT  EOLIBIT <•  MklORO*  10-  t,  0B> 
FIELD*:  18.)  AND  NOT  EQUBITC  MWORD,  11/  1,  0B> 


THEN  DO.; 

E = E + lj 

CALL  ALPHA CLP,  52,  . <'***  CONFLICTING 
-CATION  FOR  M.  PHRASE  IGNORED. 

CALL  EOL; 

END.; 


OR 

OR 


SPECIFIC 


CALL  SETBIT  MWORD,  9,  3,  1G0EO, 

FIELD<16X.  FIELD<17>,  FIELD<13>  = OFFH.; 
END.; 

END14  : END.; 
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163?  5 

1640  6 

1642  7 

1643  7 

1644  7 

1645  6 

1647  7 

1643  7 

164?  7 

1658  6 


1652  7 

1653  7 

1654  7 

1655  6 

1657  7 

1658  7 

165?  7 

1660  6 

1 662  7 

16-63  7 

1664 


1667  7 

t.668  7 

1669  7 

1670  6 

1672  7 

1673  7 

16  r 4 7 
1675  6 


167C 

1 679 
1680 


1632 


1690  6 


REJECT 

4-  * + +■ * t + +-  / ' 

/*  15:  I /O-PHRASES  */ 

/ s*.  4:  ♦♦  4-  * + >♦:  4=  ♦ 5+:  / 

DO; 

IF  EQUAL <.  MOT.  MEMR  ' . PHRASE < 4),  10) 

THEM  DO; 

CALL  SETBIT  MWORD,  23,  4,  0001B  >; 

GOTO  END15; 

EMD.i 

IF  EQUAL <.('•.  MOT.  MEMW  '),  . PHRASE-' 4),  10 > 

THEM  DO; 

CALL  SETBIT (.  MWORD,  23,  4,  001 OB/; 

GOTO  EMD15; 

EMD; 

IF  EQUAL C.  MOT.  IOR  PHRASE<4>,  9> 

THEM  DO; 

CALL  SETBIT (.  MWORD,  23,  4,  0011B); 

GOTO  EMD15; 

EMD; 

IF  EQUAL <.  ('.  NOT.  IOW  PHRASE <4 ><  9) 

THEM  DO; 

CALL  SETBIT <.  J-1W0RD,  23,  4,  0100B 
GOTO  EMD15; 

EMD; 

I F EQUAL  < . < •'  HI.  DA  ' > , PHRASE  ( 4 - , 5 > 

THEM  DO- 

CALL  SETBIT <.  MMORD,  23,  4,  0101B./- 
GOTO  EMD15; 

END; 

I F EQUAL <.  < ' WAIT  PHRASE < 4 > , 5 > 

THEM  DO; 

CALL  SETBIT (.  MWORD,  23,  4-  0110B/- 
GOTO  EMD15; 

EMD; 

I F EQUAL <.  < ' IMTES  ->,.  PHRASE < 4 > , 6 > 

THEM  DO; 

CALL  SETBIT <.  MWORD,  23- 4,  0111B); 

GOTO  EMD15; 

EMD; 

IF  EQUAL C MOT.  IMTA.  MOT.  IFCH  . FHRnSE<4>,  19) 
THEM  DO; 

CALL  SETBIT <.  MWORD,  23,  4,  1O0OB); 

GOTO  EMD15; 

END; 

IF  EQUAL,'.  (.  HLDA  WAIT  ' ),  PHRASE < 4 >,  10) 

THEM  DO; 

CALL  SETBIT MWORD,  23,  4,  1001B); 

GOTO  EMD15; 

EMD; 

IF  EQUAL  C.  < INTER  ' ), . PHRASE < 4),  6) 

THEM  DO; 

CALL  SETBIT (.  MWORD,  28,  4,  lOlOB); 

GOTO  EMD 15; 

EMD; 

IF  EQUAL <.  ('.  MOT.  MEMR.  MOT  IFCH  '),  . PHRASE < 4),  19) 


THEM  DO; 
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i>:?2 

7 

CALL  SETBITC.  MNORD,  23,  4.  10116>; 

1693 

r 

GOTO  END15; 

1694 

7 

END, 

1695 

6 

IF  EQUAL <.  <■'.  NOT.  MEMR.  NOT  STACK  PHRASE (4 ' 

THEN  DO; 

1697 

CALL  SETBIT ( . MNORD,  23.  4,  11Q0E:;; 

1693 

7 

GOTO  END15; 

1699 

7 

END; 

1700 

6 

IF  EQUAL C.  NOT.  MEMW.  NOT.  STACK  PHRASEC4 

THEN  DO; 

1702 

7 

CALL  SETBIT C.  MNORD,  28,  4,  1101B>; 

1703 

7 

GOTO  END15; 

1704 

7 

END; 

1705 

6 

IF  EQUAL <.  C'EI  '>,  . PHRASE<4>,  3> 

THEN  DO; 

1707 

—r 

f 

CALL  SETBIT (.  MNORD,  28,  4,  rilQEO, 

1703 

7 

GOTO  END15; 

1709 

7 

END; 

1710 

6 

I F EQUAL < . <' D I ' > , . PHRASE < 4 >,  3 > 

THEN  DO; 

1712 

7 

CALL  SETBIT C.  MNORD,  28,  4,  1111B>; 

1713 

7 

GOTO  END15; 

17:14 

*7 

I 

END; 

/*  IF  NONE  OF  THE  ABOVE  THEN  */ 

1715 

6 

E = E + 1; 

1716 

K 

CALL  ALPHA CLP, 2@,  . <'***  ILLEGAL  PHRASE:  ">>; 

1717 

6 

CALL  ALPHA CLP, 32,  . PHRASE >; 

1719 

6 

CALL  EOL; 

1719 

6 

END15 : END; 
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1720  5 

1721  6 

1723  7 

1724  7 

1725  7 

1726  6 

1728  7 

1729  7 

1730  7 

1731  6 

1733  7 

1734  7 

1735  7 

1736  6 

1738  7 

1739  7 

1740  7 

1741  6 

1742  6 

1743  6 

1744  6 

1745  6 


REJECT 

>fi  * Jf:  >*c  Jf.  * * *:  *:  .**  % * * / 

/*  16:  GUfl-PHRfiSES  ♦/ 

DO; 

IF  EQUAL  <.  < 'ENABLE <CE>  PHRASE <4>, 11 > 

THEN  DO; 

CALL  SETBIT  <.  MWORD,  32,  2,  00B>; 

GOTO  END16, 

END; 

IF  EQUAL  <.  <' ENABLE < LEI)  ' >,  . PHRASE<4>,  12> 
THEN  DO; 

CALL  SETBIT<.  MWORD,  32,  2,  01B>; 

GOTO  END16; 

END; 

I F EQUAL  < . < ' ENABLE < LE2  > ' > , . PHRASE < 4 > , 12  > 
THEN  DO; 

CALL  SETBIT < MWORD,  32,  2,  10EO; 

GOTO  END16; 

END; 

IF  EQUAL <.  <' ENABLE <LE3>  . PHRASE < 4 > , 12 > 

THEN  DO; 

CALL  SETBIT MWORD,  32,  2,  11B>; 

GOTO  END16; 

END; 

/*  IF  NONE  OF  THE  ABOVE  THEN  */ 

E = E + 1; 

CALL  ALPHA CLP,  20,  . <'***  ILLEGAL  PHRASE:  ">>; 
CALL  ALPHA (LP,  32,  . PHRASED; 

CALL  EOL; 

END16 : END; 


I 
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1746  5 

1747  6 


1748  7 

1750  7 

1751  7 

1752  6 

1754  7 

1755  7 

1756  7 

1757  6 

1758  6 

1759  6 

1760  6 

1761  6 


27  OCT  77 


REJECT 

/ate********** :*  t *. * + f 

/*  17:  E-PHRASES  +/ 

DO; 

IF  EQUAL < . < 0 . PHRASE<2>, 2> 

THEM  DO; 

CALL  SETBITC.  MWORD,  34,  1,  0B>, 

GOTO  EMD17; 

END; 

I F EQUAL < . < " 1 PHRASE > 2 > , 2 > 

THEN  DO; 

CALL  SETBITC.  MWORD,  34,  1,  1EO; 

GOTO  END17; 

END; 

/*■  IF  NONE  OF  THE  ABOVE  THEN  */ 

E = E + 1; 

CALL  ALPHACLP,  20,  . < ' ***  ILLEGAL  PHRASE:  " 
CALL  ALPHA CLP, 32,  . PHRASE >; 

CALL  EOL; 

END17 : END; 
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REJECT 

^'*:  *******  *4:  **4;  4*  if:*** 

/*  18:  PHRftSE < G > = ' ' */ 

/ 4:  * ♦ ♦ ••♦:  * #:  ♦ afc  ♦ ♦ 4c  * 4 : 4c  4*  4=  4:  4<  / 

1762  5 
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7* * * * * ****** * * / 
/*  20:  OTHER  */ 
/************ * / 


1764 

5 

DO; 

1765 

6 

IF  NOT 

EQUAL  <.  <'8=0,.  PHRASE,  2 > AND 

NOT 

EQUAL  < . <'€='>,  . PHRASE,  2>  AND 

NOT 

EQUAL  <.  C'D=0,  . PHRASE,  2 > AND 

NOT 

EQUAL  C.  < 'M=y  >,  . PHRASE,  2>  AND 

NOT 

EQUAL <.  < 'S='  >;  . PHRASE,  2)  OR 

PHRASE <2 > < 30H  OR  PHRASE-: 2)  > 27H  OR 

NOT 

EQUAL  C.  <'  . PHRASEC3);  1> 

THEN 

1 DO, 

1767 

7 

E = E + 1; 

1768 

7 

CALL  ALPHA CLP, 20,  . <'***  ILLEGAL  PHRASE:  '>>) 

1768 

7 

CALL  ALPHA CLP, 32, . PHRASE >> 

1770 

7 

CALL  EOL; 

1771 

f 

END; 

1772 

6 

ELSE 

: DO; 

1773 

DECLARE  Z BYTE; 

1774 

7 

Z = PHRASE <2>  AND  07H; 

1775 

7 

IF  EQUAL C.  <" A ">,.  PHRASE,  1> 

THEN  DO, 

1777 

C' 

FIELD<7>,  FIELDC8>  = OFFH; 

1778 

8 

CALL  SETBITC.  MWORD;  16,  2,  Z» 

1778 

S 

END; 

1780 

7 

IF  EQUAL C.  < 'C  >,  . PHRASE,  1) 

THEN  DO; 

1782 

8 

FIELDC2>,  F I ELD  C 3 > = 0FFH; 

1783 

8 

CALL  SETBITC.  MWORD,  14,  2,  Z>; 

1784 

8 

END; 

1785 

7 

IF  EQUAL C.  PHRASE, 1> 

THEN  DO; 

1787 

8 

FIELDC19>,  F I ELD <20 ) = 0FFH; 

1788 

8 

Z = SHRCZ,  1); 

1788 

8 

CALL  SETBITC.  MWORD,  12,  2,  Z>; 

1780 

8 

END; 

1781 

7 

IF  EQUAL C.  C-M- PHRASE,  1> 

THEN  DO; 

1783 

8 

FIELDC16>,  FIELDC17);  FIELDC18)  = @FFH; 

1784 

8 

CALL  SETBITC.  MWORD,  9,  2,  Z>; 

1785 

8 

END; 

1786 

7 

IF  EQUAL  C.  ('S'),.  PHRASE, 1) 

THEN  DO; 

1788 

8 

F I ELD  < 11);  FIELDC12)  = ©FFH; 

1789 

8 

CALL  SETBITC.  MWORD;  18;  2;  Z); 

1800 

8 

END; 

1801 

7 

END; 

1802 

6 

END ; 
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1803  5 

1804  4 


END.; 

END, 


/+;  OF  DO  CRSE  TYPE  */ 

/♦  OF  DO  WHILE  PHRFtSE < 0 > O ' ; " */ 
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/*  DELAYED  RESOLUTION  OF  SI  AND  A BITS  */ 
1805  3 DO; 

ISOS  4 DECLARE  < INDEX,  SI,  A,  TBLENTRV)  BYTE; 

/*  COMPOSE  TABLE  INDEX  */ 


1807 

4 

INDEX  = 0; 

1808 

4 

IF 

P2BREGPHRASEPRESENT 

THEN 

INDEX  = 

INDEX 

OR 

80H; 

1810 

4 

IF 

NOT ADI 

THEN 

INDEX  = 

INDEX 

OR 

4 OH; 

1812 

4 

IF 

F I ELD < 11) 

THEN 

INDEX  = 

INDEX 

OR 

20H; 

1814 

4 

IF 

EQUBITC.  MWORD,  18,  1,  IB) 

THEN 

INDEX  = 

INDEX 

OR 

10H; 

ISIS 

4 

IF 

FI ELD <7) 

THEN 

INDEX  = 

INDEX 

OR 

OSH, 

1818 

4 

IF 

FI  ELD ''8) 

THEN 

INDEX  = 

I NDEX 

OR 

04H, 

1820 

4 

IF 

EQUBITC.  MWORD,  16,  1,  IB) 

THEN 

INDEX  = 

INDEX 

OR 

OSH; 

1822 

4 

IF 

EQUBITC.  MWORD,  17,  1,  IB) 

THEN 

INDEX  = 

I NDEX 

OR 

01H; 

/*  FETCH  TABLE  ENTRY  */ 
1S24  4 TBLENTRV  = TBL< INDEX>; 


1825  4 

1827  5 

1828  5 

1S29  5 

1820  5 

1821  5 

1822  5 

1822  4 

1825  5 

182S  5 

1827  5 

1828  5 

1829  4 

1840  5 

1841  5 

1842  5 

1842  5 

1844  5 

1845  5 

1846  5 

1847  4 


/*  DECODE  TABLE  ENTRY  *■/ 

IF  < TBLENTRV  AND  80H > <>0 
THEN  DO, 

E = £ + 1; 

CALL  ALPHA  CLP,  47,  . <"***  LlNFORSEEN  CIRCUMSTANCE  ', 
'HAS  ARISEN.  INDEX  = '>>; 

CALL  HEX CLP,  2,  . INDEX); 

CALL  EOL; 

GOTO  ENDRESOLVE; 

END; 

IF  < TBLENTRV  AND  O8H)O0 
THEN  DO; 

E = E + 1; 

CALL  ALPHA  CLP,  SI,  . (.'***  SPECIFICATION  FOR  A AND  ", 
'Si  CONFLICT.  MICROWORD  NOT  VALID.  ')); 

CALL  EOL; 

END; 

ELSE  DO; 

SI  = SHR< TBLENTRV,  2)  AND  01H; 

CALL  SETBITC.  MWORD,  18,  1,  SI); 

F I ELD < 11)  = 6FFH; 

A = TBLENTRV  AND  82H; 

CALL  SETBIT <.  MWORD,  IS,  2,  A); 

FI  ELD; 7),  FIELDC8)  = OFFH; 

END; 

ENDRESOLVE  END, 
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/*  DELRVED  RESOLUTION  OF  M BITS.  */ 


1S48 

3 

IF 

OORLCF'HRASEPRESENT 

THEN  DO.: 

1850 

4 

IF  F I ELD ( 16 ) AND  EQUBIT<.  MWORD,  9,  1,  IB) 

THEN  DO, 

1852 

5 

IF  FI ELD (17)  AND  NOT  EQUBIT(.  MWORD, 10, 1,  ©B> 

THEN  DO: 

1854 

6 

E = E + 1, 

1855 

6 

CALL  ALPHA  CLP,  57, . ('**+  CONFLICTING 
'SPECIFICATION  FOR  M.  MICROWORD 
' NOT  VALID.  '■  ) ) : 

1856 

6 

CALL  EOL.: 

1857 

6 

END.: 

1858 

5 

ELSE  DO.: 

1859 

6 

CALL  SETS  IT  (.  MWORD,  10,  1,  0B).; 

I860 

6 

FI ELD (17)  = 0FFH; 

1861 

6 

IF  NOT  FI ELD (13) 

THEN  DO.: 

1863 

{ 

FI ELD (18)  = OFFH: 

1864 

< 

CALL  SETBIT ( . MWORD, 11,  1,  IB); 

1865 

1 

END; 

1866 

3 

END, 

1867 

5 

END; 

1868 

4 

ELSE  DO; 

1869 

■f 

CALL  SETBIT (.  MWORD,  9,  1,  OB); 

1870 

5 

FI ELD (16)  = OFFH, 

1871 

5 

END; 

1872 

4 

END; 

1873 

”> 

IF 

P1BD I PHRRSEPRESFNT 

THEN  DO; 

1875 

4 

IF  E QUBIT (.  MWORD,  9,  3,  OOOB) 

THEN  DO; 

1877 

cr 

IF  FI  ELD (16)  AND  FI ELD (17)  AND  FI  ELD (18) 

THEN  DO; 

1079 

6 

E = E + 1; 

1380 

3 

CALL  ALPHA (LP,  57,  . (•'***  CONFLICTING  ', 
•SPECIFICATION  FOR  M.  MICROWORD  •', 

'NOT  VALID.  ' )); 

1881 

ti 

CALL  EOL, 

1882 

6 

END; 

138"* 

t 

ELSE  DO; 

/*  SINCE  M2=l  BV  DEFAULT,  */ 

/*  FI  ELD (16)  MUST  BE  SET  IF  M=0.  */ 

1884 

•5 

IF  NOT  F I ELD (17) 

THEN  DO; 

1886 

7 

FIELD"  17)  = OFFH; 

1887 

7 

CALL  SETBIT (.  MWORD,  10,  1,  IB); 

1 333 

7 

END, 

1889 

£ 

ELSE  DO; 

/*  FI ELD (18)  IS  NOT  SET  *- 

189© 

7 

FIELD (IS)  = OFFH; 

1891 

7 

CALL  SETBIT C.  MWORD,  11,  1,  IB), 

1892 

7 

END; 
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CODE  AREA  SIZE  — 4CCEH  '19662D 

VARIABLE  AREA  SIZE  = Q2D8H  723D 

MRX I HUM  STACK  SIZE  = OOOCH  12D 

2486  LINES  F'ERD 
O PROGRAM  ERROR <S> 

END  OF  PL/M-SO  COMPILATION 


r 


5.1.2  Q-80  Simulator 

5.1 .2.1  User’s  Reference 


■HD 


Inputs 

The  Q-80  Simulator  reads  input  from  3 disk  files: 

■ the  object  code  file, 

■ the  schedule  file,  and 

■ the  data  input  file. 

The  object  file  contains  object  code  produced  by  the  Intel  8080/8085 
Macro  Assembler  V2.0  (an  Intel  product).  The  schedule  file  specifies  the 
behavior  of  the  HALT,  HOLD,  INT  and  RESIN  inputs  of  the  Q-80  during 
the  execution  of  the  program  contained  in  the  object  file.  The  3 bytes 
to  be  jammed  in  case  of  interrupt  are  also  specified  in  the  schedule  file. 
This  file  may  be  omitted.  The  data  input  file  specifies  a stream  of  bytes 
that  is  read  whenever  a Q-80  IN-instruction  is  executed.  This  file  may 
also  be  omitted. 


Function 

The  Q-80  simulator  is  implemented  in  principle  as  a finite  automaton  and 
the  possible  state  transitions  are  shown  in  Figure  5.1-13.  The  state  tran- 
sitions are  determined  by  input  read  from  the  object  file  (opcodes)  and 
by  input  read  from  the  schedule  file  (HALT,  HOLD,  INT,  RESET,  op- 
codes of  instructions  jammed  at  interrupt).  For  each  state  transition 
one  6-byte  record  is  written  on  the  disk.  For  each  state  visited  a line 
of  printed  output  is  generated.  Simulated  execution  ends  when  an  HLT- 
instruction  is  executed  and  none  of  the  following  is  specified: 

HALT=1,  HOLD=l , INT=1  or  RESET=1 . 
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-13  Q80  Simulator  State  Diagram 


Output 


0-7 

8-15 

16-23 

24-31 

32-39 

40-47 


The  binary  file  created  on  disk  by  the  Q-80  simulator  contains  a complete 
trace  of  the  dialog  between  the  Q-80  and  its  environment  (which  will  be 
simulated  by  the  MDS-800  at  execution  time).  Each  record  contains  a set 
of  stimuli  sent  by  the  environment  to  the  Q-80  and  the  corresponding  set 
of  responses  from  the  Q-80.  The  last  byte  serves  a different  function. 

This  byte  indicates  when  certain  Q-80  outputs  are  in  a “don’t  care”  state  and 
whether  the  data  bus  is  transmitting  data  to  or  from  the  Q-80. 

Figure  5.1-14  shows  a map  of  one  record  of  the  binary  file.  Bits  0-7 
and  8-15  represent  the  value  of  the  Q-80  address  output  (address  bus). 

Bits  0-7  are  the  least  significant  bits  and  bits  8-15  are  the  most  signifi- 
cant. 


ADDR.BUS  (LSB) 


ADDR.BUS  (MSB) 


DATA  BUS 


RESIN 

INT 

INTE 

INTA 

HOLD 

HLDA 

HALT 

WAIT 

SYNC 

OFL 

STACK 

IFCH 

IOR 

IOW 

MEMR 

MEMW 

DB 

READ 

INTE 

VALID 

OFL 

VALID 

DB 

WRITE 

AB 

VALID 

Figure  5,1-14  Binary  File  Record  Format 
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Bits  16-23  represent  the  value  on  the  data  bus  (which  may  be  a stimulus 
or  a response  since  this  bus  is  bidirectional).  Bits  24,  25,  28  and  30 
are  the  stimuli  RESIN,  INT,  HOLD  and  HALT,  respectively.  Bits  26,  27, 

29,  31,  33  are  the  responses  INTE,  INTA,  HLDA,  WAIT  and  OFL,  respec- 
tively. Bits  34-39  are  the  memory  and  I/O  status  signals  STACK,  IFCH,  IOR 
IOW,  MEMR  and  MEMW.  Bits  43  and  46  indicate  when  the  data  bus  is 
used  for  a read  or  a write  operation,  respectively.  If  both  bits  are  0 
the  value  on  the  bus  is  of  no  consequence  (don’t  care).  Similarly,  if 
bit  47  is  0,  the  value  on  the  address  bus  is  of  no  consequence.  Bits 
44  and  45  indicate  whether  INTE  and  OFL  have  yet  been  initializ  d 
(i.e.  0 means  don’t  care). 

The  listing  created  by  the  Q-80  Simulator  also  represents  a complete  trace 
of  the  dialog  between  the  Q-80  and  its  environment.  Here  each  line 
represents  a set  of  responses  from  the  Q-80  and  the  next  set  of  stimuli 
sent  to  the  Q-80.  This  is  different  from  the  definition  of  a record  in  the 
binary  file  and  thus  individual  lines  of  the  listing  are  not  in  a one-to-one 
correspondence  to  individual  records  in  the  binary  file.  These  two  different 
approaches  were  necessary  for  the  following  reason.  The  disk  file  is  to  be 
used  by  an  exerciser  program  to  simulate  the  Q-80’s  environment  and  check 
its  proper  operation.  Such  an  exerciser  applies  a set  of  stimuli,  then  checks 
if  the  Q-80’s  response  was  as  expected.  This  leads  to  the  address  part  of 
a memory  access  and  the  data  read  to  be  in  two  consecutive  records.  A 
listing  organized  along  the  same  principles  is  hard  to  follow.  For  that  reason, 
stimuli  and  responses  are  paired  for  the  listing  such  that  the  memory  request 
(a  Q-80  response)  and  the  memory  response  (a  Q-80  stimulus)  are  on  the 
same  line. 


Date  File 

A file  called  :F0:DATE  is  read  by  the  Q-80  Simulator.  The  first  11  bytes 
in  this  file  are  assumed  to  be  the  current  date.  The  file  must  be  edited 
daily  by  the  user.  The  format  of  the  date  is  shown  in  the  following  example: 


Calling 


To  call  the  Q-80  Simulator  from  IS1S-II  (which  prompts  with  a - ) 
enter: 

Q80SIM  :F1 : name  .OBJ 

on  the  keyboard.  This  implies  that  :Fl:name.OBJ  is  the  object  file, 
that  :Fl:name.SCH  is  the  schedule  file  (may  not  exist),  that  :Fl:name.IN 
is  the  input  file  (may  not  exist)  and  that  :F1  :name.BIN  will  be  the  binary 
file. 

| 

States  and  state  transitions. 

The  Q-80  Simulator  has  24  states.  Each  of  these  states  corresponds  to  a 
wait-loop  in  the  microprogram  of  the  Q-80. 

Transitions  between  states  are  caused  by  the  arrival  of  new  stimuli  from  the 
environment  of  the  Q-80.  A state  transition  corresponds  to  the  execution 
of  microcode  between  two  wait-loops.  It  begins  with  the  exit  from  one 
loop,  continues  with  the  execution  of  non-iterative  code  and  ends  with 
entering  another  (prehaps  the  same)  loop. 

■ The  state  RESET 

This  state  is  entered  from  any  state  if  RESIN=1.  Every  simulation  run 
starts  out  in  this  state. 

The  program  counter  is  set  to  0 and  the  address  and  data  buses  are  floated. 
Depending  on  the  value  of  the  stimulus  RESIN,  the  next  state  is  RESET  or 
IFCH1. 

■ The  state  IFCH1. 

In  this  state  the  opcode  of  the  next  instruction  to  be  executed  is  fetched 
from  memory.  The  value  of  the  program  counter  is  placed  on  the  address 
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bus  and  IFCH  and  MEMR  are  set  to  1.  After  the  opcode  is  received, 
the  program  counter  is  incremented  and  OFL  is  cleared. 

If  the  opcode  fetched  indicates  that  the  instruction  is  a 2 or  3 byte 
instruction  the  next  state  is  IFCH2.  If  it  is  a 1-byte  instruction  which 
requires  an  operand  to  be  popped  from  the  stack,  the  next  state  is 
POP1  or  COND*.  If  it  is  an  instruction  which  requires  an  operand  to 
be  fetched  from  memory  (other  than  pop  from  the  stack)  the  next  state 
is  OFCH1.  If  the  instruction  is  the  IN-instruction,  the  next  state  is  INPUT. 

If  it  is  a 1-byte  instruction  which  does  not  require  any  sort  of  operand 
fetch,  the  instruction  is  executed  at  this  point  by  a transition  to  the 
pseudo-state  EXEC. 

■ The  state  IFCH2. 

In  this  state  the  2nd  byte  of  a 2 or  3-byte  instruction  is  fetched  from 
memory.  The  value  of  the  program  counter  is  placed  on  the  address  bus 
and  IFCH  and  MEMR  are  set  to  1.  After  the  2nd  byte  is  received,  the 
program  counter  is  incremented. 

If  the  opcode,  fetched  in  IFCH1,  indicates  that  the  instruction  is  3 bytes 
long  the  next  state  is  IFCH3.  Otherwise  the  next  state  is  EXEC,  OFCHI, 
POP1  or  INPUT  depending  on  the  opcode  (as  in  state  IFCH1). 

■ The  state  IFCH3. 

In  this  state  the  3rd  byte  of  a 3-byte  instruction  is  fetched  from  memory. 
The  value  of  the  program  counter  is  placed  on  the  address  bus  and  IFCH 
and  MEMR  are  set  to  1.  After  the  3rd  byte  is  received,  the  program 
counter  is  incremented.  The  next  state  is  EXEC,  OFCHI  or  POP1.  depending 
on  the  opcode  (as  in  state  IFCH1). 

__ 

* The  8 conditional  return  instructions  are  a special  case.  The  condition 
must  be  examined  first,  to  determine  whether  to  pop  the  stack.  This 
is  done  in  the  pseudo-state  COND. 
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■ The  pseudo-state  COND 


-T 


This  pseudo-stah  does  not  cause  output  to  the  binary  file  or  to  the  listing. 

It  is  only  an  intermediate  step  in  the  execution  of  conditional  return  instruc- 
tions which  serves  to  decide  the  next  state  after  IFCH1.  If  the  condition 
is  true,  the  next  state  is  POP1,  otherwise  it  is  the  pseudo-state  EXEC. 


■ The  state  OFCH1 . 

In  this  state  single-byte  operands  and  the  1st  bytes  of  2-byte  operands  are 
fetched.  Depending  on  the  opcode  one  of  the  following  is  placed  on  the 
address  bus: 

— the  register  pair  BC 

— the  register  pair  DE 

— bytes  2 and  3 of  the  instruction 

— the  register  pair  HL, 

and  MEMR  is  set  to  1.  Depending  on  the  opcode,  the  next  state  is  either 
OFCH2  (2-byte  operands)  or  EXEC  (1-byte  operands). 

■ The  state  OFCH2. 

In  this  state  the  2nd  byte  of  a 2-byte  operand  is  fetched.  The  address 
used  in  OFCH1  is  incremented  and  placed  on  the  address  bus.  MEMR  is 
set  to  1.  The  next  state  is  always  the  pseudo-state  EXEC. 

■ The  state  POP1. 

In  this  state  the  lsi  of  2 bytes  (the  LSB)  are  popped  from  the  stack. 

The  stack  pointer  (SP)  is  placed  on  the  address  bus  and  STACK  and 
MEMR  are  set  to  1.  After  the  byte  is  received  from  memory  the  stack 
pointer  is  incremented.  The  next  state  is  always  POP2. 


■ The  state  POP2. 


In  this  state  the  2nd  of  2 bytes  (the  MSB)  is  popped  from  the  stack. 
As  in  POP1.  the  stack  pointer  is  placed  on  the  address  bus  and  STACK 
and  MEMR  aa  set  to  1.  After  the  bvte  is  received  from  memory  the 
stack  pointer  is  icremented.  The  next  state  is  always  the  pseudo-staie 
EXEC. 


■ The  state  INPUT. 

In  this  state  a byte  is  read  from  the  port  indicated  by  the  2nd  byte  of 
the  instruction.  The  port  number  (2nd  byte  of  the  instruction)  is  placed 
on  the  address  bus,  padded  with  leading  zeros.  IOR  is  set  to  1 . The 
Q-80  simulator  will  supply  the  input  byte,  reading  the  next  byte  from  the 
file  :Fl:name.IN.  If  the  file  does  not  exist  or  if  the  end  of  file  has 
been  reached  the  simulation  is  aborted.  The  next  state  is  always  the 
pseudo-state  EXEC. 


■ The  pseudo-state  EXEC 

The  pseudo-state  EXEC  represents  the  execution  phase  of  the  256  Q-80 
instructions.  Direct  transitions  from  the  states  IFCH1,  IFCH2,  IFCH3, 
OFCH1,  OFCH2,  POP2,  and  INPUT  to  the  states  STORE  1,  PUSH1, 
OUTPUT,  HALTE,  HOLD,  HHOLD,  HALTI,  HALTIE,  IHHOLD,  IEHHOLD, 
INTJAM1  and  IFCH1  all  pass  through  this  pseudo-state.  The  pseudo-state. 
The  pseudo-state  EXEC  does  not  cause  any  output  to  the  binary  file  or  to 
the  listing.  The  next  instruction  is  determined  as  follows.  If  the  opcode 
indicates  that  2 bytes  must  be  pushed  onto  the  stack  then  the  next 
state  is  PUSH1.  If  a 1 or  2-byte  result  must  be  stored  in  the  memory 
(not  on  the  stack)  the  next  state  is  STORE  1.  If  the  instruction  is 

the  OUT-instruction  the  next  state  is  OUTPUT.  If  the  instruction  is  an 
HLT-instruction  the  next  state  is  one  of  HALTI,  HALTIE,  IHHOLD, 
IEHHOLD  or  INTJAM1  (see  Table  5.1-8). 
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Table  5.1-8.  Next  state  at  end  of  execution  for  HLT-instructions 


HALT 

HOLD 

INT.INTE 

NEXT  STATE 

0 

0 

0 

HALTI 

0 

0 

1 

INTJAM1 

0 

1 

X 

IHHOLD 

1 

0 

X 

HALTIE 

1 

1 

X 

IEHHOLD 

For  all  other  instructions  the  next  state  is  one  of  IFCH1,  INTJAM1, 
HALTE,  HOLD  or  HHOLD  (see  table  5.1-9). 


Table  5.1-9.  State  transition  at  end  of 
instruction  execution  (except  HLT) 


HALT 

HOLD 

INT.INTE 

NEXT  STATE 

0 

0 

0 

IFCH1 

0 

0 

1 

INTJAM1 

0 

1 

X 

HOLD 

1 

0 

X 

HALTE 

1 

1 

X 

HHOLD 
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■ The  state  ST0RE1. 

In  this  state  single-byte  results  and  the  1st  byte  of  2-byte  results  are  stored 
stored  in  the  memory.  Depending  on  the  opcode  one  of  the  following  is 
placed  on  the  address  bus: 

- the  register  pair  BC 

- the  register  pair  DE 

- bytes  2 and  3 of  the  instruction 

- the  register  pair  HL. 

The  byte  to  be  stored  is  placed  on  the  data  bus.  MEMW  is  set  to  1. 

For  1-byte  results  the  next  state  is  one  of  IFCH1,  INTJAM1,  HALTE, 
HOLD  or  HHOLD  depending  on  the  value  of  HALT,  HOLD  and  of 
INT.INTE  (see  Table  5.1-9).  For  2-byte  results  the  next  state  is  STORE2. 


■ The  state  STORE2. 

In  this  state  the  2nd  byte  of  2-byte  results  is  stored  in  memory.  The 
address  used  in  STORE  1 is  incremented  and  placed  on  the  address  bus. 
The  byte  to  be  stored  is  placed  on  the  data  bus.  MEMW  is  set  to  1. 
The  next  state  is  one  of  IFCH1,  LNTJAM1 , HALTE,  HOLD,  or  HHOLD 
(see  Table  5.1-9). 


■ The  state  PUSH1. 

In  this  state  the  1st  of  2 bytes  (the  MSB)  is  pushed  onto  the  stack. 

The  stack  pointer  (SP)  is  decremented  first  and  the  decremented  value  is 
placed  on  the  address  bus.  The  byte  to  be  pushed  is  placed  on  the  data 
bus.  STACK  and  MEMW  are  set  to  1.  The  next  state  is  always  PUSH2. 


■ The  state  PUSH2. 

In  this  state  the  2nd  of  2 bytes  (the  LSB)  is  pushed  onto  the  stack.  The 
stack  pointer  (SP)  is  decremented  first  and  the  decremented  value  is  placed 
on  the  address  bus.  The  byte  to  be  written  into  memory  is  placed  on  the 
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data  bus.  STACK  and  MEMW  are  set  to  1.  The  next  state  is  one  of  IFCH1. 
INTJAM1,  HALTE,  HOLD  or  HHOLD  (see  Table  5.1-9). 


■ The  state  OUTPUT 

In  this  state  a byte  is  written  to  the  port  indicated  by  the  2nd  byte  of 
the  instruction.  The  port  number  (2nd  byte  of  the  instruction)  is  placed 
on  the  address  bus,  padded  with  leading  zeros.  The  byte  to  be  written 
is  placed  on  the  data  bus.  IOW  is  set  to  1.  The  next  state  is  one  of 
IFCH1,  INTJAM1,  HALTE,  HOLD  or  HHOLD  (see  Table  5.1-9). 


■ The  state  HALTE 

This  state  is  entered  at  the  end  of  the  execution  of  any  instruction  other 
than  HLT  if  HALT=1  and  HOLD=0.  WAIT  is  set  to  1.  The  next  state 
is  one  of  IFCH1,  INTJAM1,  HALTE,  HOLD  or  HHOLD  (see  Table  5.1-9). 


■ The  state  HOLD. 

This  state  is  entered  at  the  end  of  the  execution  of  any  instruction  other 
than  HLT  if  HOLD=l  and  HALT=0.  The  address  bus  and  the  data  bus 
are  floated  and  HLDA  is  set  to  1.  The  next  state  is  one  of  IFCH1, 
INTJAM1,  HALTE,  HOLD  or  HHOLD  (see  Table  5.1-9). 


■ The  state  HHOLD 

This  state  is  entered  at  the  end  of  the  execution  of  any  instruction  other 
than  HLT  if  HALT=1  and  HOLD=l.  The  address  bus  and  the  data  bus 
are  floated.  HLDA  and  WAIT  are  set  to  1.  The  next  state  is  one  of 
IFCH1 , INTJAM1,  HALTE,  HOLD  or  HHOLD  (see  Table  5.1-9). 


■ The  state  HALTI. 

This  state  is  entered  at  the  end  of  an  HLT-instruction  if  HALT=0  and 
HOLD=0.  WAIT  is  set  to  1.  The  next  state  is  one  of  HALTI,  HALTIE, 
IHHOLD,  IEHHOLD  or  INTJAM1  (see  Table  5.1-8). 


■ The  state  HALTIE. 


This  state  is  entered  at  the  end  of  an  HLT-instruction  if  HALT=  1 and 
HOLD=0.  WAIT  is  set  to  1.  The  next  state  is  one  of  HALTI,  HALTIE, 
IHHOLD,  IEHHOLD  or  INTJAM1  (see  Table  5.1-8). 


■ The  state  IHHOLD. 

This  state  is  entered  at  the  end  of  an  HLT-instruction  if  HOLD=l  and 
HALT=0.  HLDA  and  WAIT  are  set  to  1 and  both  the  address  bus  and 
the  data  bus  are  floated.  The  next  state  is  one  of  HALTI,  HALTIE, 
IHHOLD,  IEHHOLD  or  INTJAM1  (see  Table  5.1-8). 


■ The  state  IEHHOLD. 

This  state  is  entered  at  the  end  of  an  HLT-instruction  if  HALT=1  and 
HOLD=l.  HLDA  and  WAIT  are  set  to  1 and  both  the  address  and 
data  buses  are  floated.  The  next  state  is  one  of  HALTI,  HALTE,  IHHOLD, 
IEHHOLD  or  INTJAM1  (see  Table  5.1-8). 


■ The  state  INTJAM1. 

In  this  state  the  first  of  3 bytes  (opcode)  is  jammed  into  the  Q-80  as  a 
result  of  the  recognition  of  an  interrupt.  Further  interrupts  are  disabled 
by  setting  INTE  to  0.  The  value  of  the  program  counter  is  placed  on 
the  address  bus  and  INTA  and  IFCH  are  set  to  1.  After  the  first  jammed 
byte  is  received,  OFL  is  set  to  0.  The  next  state  is  IFCH2. 


■ The  state  IFCH2 

In  this  state  the  2nd  of  3 bytes  is  jammed  into  the  Q-80  as  a result 
of  the  recognition  of  an  interrupt.  The  value  of  the  program  counter 
is  placed  on  the  address  bus  and  INTA  and  IFCH  are  set  to  1.  The 
next  state  is  INTJAM3. 
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In  this  state  the  3rd  of  3 bytes  is  jammed  into  the  Q-80  as  a result 
of  the  recognition  of  an  interrupt.  The  value  of  the  program  counter 
is  placed  on  the  address  bus  and  INTA  and  IFCH  are  set  to  1.  The 
next  state  is  one  of  EXEC,  OFCH1,  POP1  or  INPUT  depending  on  the 
opcode  (first  byte  jammed). 

Format  of  the  Schedule  File 

The  value  of  the  Q-80  stimuli  RESIN,  HALT,  HOLD  and  INT  may  be 
specified  by  means  of  the  schedule  file.  The  schedule  file  is  normally  produced 
with  the  aid  of  the  Intel  ISIS-II  Text  Editor  (an  Intel  product)  and  is  thus 
an  ASCII  file.  Each  line  in  the  this  file  refers  to  a specific  instance  of  the 
execution  of  a specific  instruction.  The  first  four  characters  on  each  line 
are  interpreted  as  hexadecimal  digits  (ASCII  0-9,  A-F)  and  specify  the  memory 
address  where  the  opcode  of  the  instruction  is  located.  These  four  digits  are 
followed  by  a TAB  (control-I)  character.  The  next  1-5  characters  represent 
the  count,  a decimal  number  between  1 and  65536.  If  the  count  is  1,  the 


L 


line  refers  to  the  first  time  the  specified  instruction  is  executed.  If  it  is  2, 
it  refers  tothe  2nd  time  the  instruction  is  executed,  etc.,  etc.  The  count 
field  is  terminated  by  a TAB  (control-I).  For  example: 


03DC 


^AB)35^AB) 


indicates  that  this  line  refers  to  the  35th  time  the  instruction  located  at 
address 


The  next  field  specifies  the  value  of  the  stimuli  RESIN,  HALT,  HOLD  and 
INT  (RHHI  for  short).  There  are  two  ways  to  specify  the  value  of  RHHI. 
If  the  specification  refers  to  one  of  the  states  listed  below,  the  format  is: 


<RHHI>  @ <state> 


where  <RHHE>  is  a string  of  four  0-s  and  1-s  and  where  <state>  is  the 
name  of  the  state  in  which  the  stimulus  is  to  be  applied.  For  example: 


1000@OFCH2 
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indicates  that  RESIN=1,  HALT=0,  HOLD=0,  INT=0  are  the  stimuli  to  be 
applied  in  state  OFCH2  of  the  instruction  execution  specified.  Specifications 
of  the  format  described  above  may  be  used  only  for  the  following  states: 


IFCH1,  IFCH2,  IFCH3 
OFCH1,  OFCH2 
POP1,  POP2 
INPUT 

STORE  1,  STORE2 
PUSH1,  PUSH2 
OUTPUT 

INTJAM1,  INTJAM2,  INTJAM3. 


For  the  remaining  states  RHHI-stimulus  values  are  specified  by  use  of  the 
second  format.  These  are  states  entered  at  the  end  of  the  execution  of 
an  instruction  and  sequences  of  state  transitions  of  arbitrary  length  may 
occur  before  the  execution  of  the  next  instruction  commences.  For  this 
reason  a sequence  of  up  to  8 RHHI-values  can  be  specified  foi  an  instruc- 
tion execution: 


TAB)  <RHHI>,  <RHHI>,  <RHHI>,  . 


(TAB 
or 

CR  . 


1 


1 


Note  that  no  state  is  specified.  Application  of  stimuli  from  this  sequence 
begins  as  soon  as  one  of  the  states 

RESET 

HALTE,  HOLD,  HHOLD 

HALTI,  HALTIE,  IHHOLD,  IEHHOLD 

is  entered  and  continues  until  a transition  to  either  IFCH1  or  INTJAM1  is 
made.  If  the  end  of  the  sequence  is  reached  the  next  RHHI-stimulus  will 
be  0000  which  will  cause  a transition  to  IFCH1  or  ends  the  simulation  run. 
(The  reader  will  recall  that  the  simulation  run  ends  if  RHHI=0000  in  state 
HALTI.) 
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The  following  are  examples  of  valid  lines  in  a schedule  file: 


03DC  (TABl  35  (TAB)  1 000@OFCH2 
20A3  (TAB)  16 


>^ab) 


© 

01000,  0100,  0110,  0010 


If  an  RHHI-stimulus  specifies  INT=1,  the  RHHI-specification  field  of  the 
respective  line  may  be  followed  by  another  TAB  (control-I),  the  word  JAM=, 
and  six  hexadecimal  digits,  which  specify  the  3 bytes  to  be  jammed,  and  a 
CR  (carriage  return).  For  example: 


2794  (TAB)  2 (tab)  0001@STORE1  (tab)  JAM=C30008  (™y 


The  schedule  file  may  contain  at  most  50  lines.  No  blanks  may  occur 
anywhere  in  the  file.  The  Q-80  Simulator  echoes  the  lines  read  from  the 
schedule  file  on  the  listing.  Any  errors  in  the  schedule  file  cause  aborting 
of  the  simulation  run.  For  any  state  of  the  simulation  run  where  none 
of  the  lines  applies,  RHH1=0000  is  assumed.  If  there  is  no  schedule  file, 
r.e.  :Fl:name.SCH  does  not  exist,  RHHI=0000  is  assumed  at  all  times. 
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5. 1.2.2  Q-80  Simulator  Computer  Program  Documentation* 

Environment 

The  Q-80  Simulator  is  written  in  the  language  PL/M-80  and  is  designed 
to  run  under  t..e  1SIS-II  operating  system  (PL/M-80  V3.0  and  ISIS-II 
V2.2  are  Intel  products).  In  addition  to  the  features  of  PL/M-80,  a 
number  of  external  library  routines  are  used  as  primitives  in  the  pro- 
gram. A brief  functional  description  of  these  routines  follows. 

OPEN  — This  subroutine  opens  a file.  Given  a pointer  to  the  filename 
and  an  access  code  (l=read,  2=write,  3=read  & write)  this  subroutine 
returns  an  index  into  the  Active  File  Table  (AFT)  to  be  used  when 
accessing  the  file  and  a status  word. 

Argument  1 = pointer  to  location  where  AFT  index  is  to  returned 

Argument  2 = pointer  to  Filename 

Argument  3 = access  code 

Argument  4 = AFT  index  of  echo  file  or  0 if  no  echo 

Argument  5 = pointer  to  location  where  status  word  is  to  be  returned. 

This  subroutine  is  declared  in  lines  2-4  of  the  source  listing. 

CLOSE  - This  subroutine  closes  a file. 

Argument  1 = AFT  index  of  File 

Argument  2 = pointer  to  location  where  status  word  is  to  be  returned. 

This  subroutine  is  declared  in  lines  5-7  of  the  source  listing. 

READ  - This  subroutine  reads  from  a file.  Given  the  AFT  index  of  a file, 
a pointer  to  the  read  buffer  and  the  number  of  bytes  to  be  read,  this  sub- 
routine will  fill  the  buffer,  return  the  number  of  bytes  actually  read  and  the 
status  word. 

* Familiarity  with  the  ISIS-II  operating  system  and  PL/M-80  compiler  is  assumed. 

It  is  also  assumed  that  the  reader  has  read  the  previous  section  describing 
the  operation  and  use  of  the  Q-80  Simulator. 
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Argument  1 = AFT  index  of  file 

Argument  2 = pointer  to  buffer 

Argument  3 = number  of  bytes  to  be  read 

Argument  4 = pointer  of  location  where  actual  number  of  bytes  read 

is  to  be  returned 

Argument  5 = pointer  to  location  where  status  word  is  to  be  returned. 


This  subroutine  is  declared  in  lines  8-10  of  the  source  listing. 


WRITE  - This  subroutine  writes  into  a file.  Given  the  AFT  index  of  the 
file,  a pointer  to  the  write  buffer  and  the  number  of  bytes  to  be  written, 
this  subroutine  will  write  the  buffer  contents  into  the  file  and  return  the 
status  word. 

Argument  1 = AFT  index  of  file 

Argument  2 = pointer  to  buffer 

Argument  3 = number  of  bytes  to  be  written 

Argument  4 = pointer  to  location  where  status  word  is  to  be 

returned. 

This  subroutine  is  declared  in  lines  11-13  of  the  source  listing. 


SEEK  — This  subroutine  allows  the  repositioning  of  the  file  pointer,  i.e. 
facilitates  skipping  around  in  the  file.  Many  modes  allow  a variety  of 
ways  to  move  the  file  pointer,  but  some  modes  do  not  work  correctly 
(Intel  will  fix  in  next  release  of  ISIS-II).  For  this  reason  only  two 
modes  (modes  0 and  2)  are  used  in  this  program.  In  mode  0 SEEK 
returns  the  block  number  and  byte  number  where  the  fibpointer  is 
pointing  (1  block  = 128  bytes).  In  mode  2 the  filepointer  is  set  based 
on  a blocknumber  — bytenumber  pair  supplied  as  arguments. 

Argument  1 = AFT  index  of  file 

Argument  2 = mode  (0  or  2) 

Argument  3 = pointer  to  blocknumber 

Argument  4 = pointer  to  bytenumber 

Argument  5 = pointer  to  status  word 

This  subroutine  is  declared  in  lines  14-16  of  the  source  listings. 
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DELETE  - This  subroutine  deletes  a file. 

Argument  1 = AFT  index  of  file  to  be  deleted 

Argument  2 = pointer  to  status  word. 

This  subroutine  is  declared  in  lines  17-19  of  the  source  listing. 

ERROR  - This  subroutine  displays  a standard  error  message  on  the  CRT. 

It  is  to  be  used  when  an  abnormal  status  word  was  returned  by  another 
subroutine. 

Argument  1 = error  number 

Argument  2 = pointer  to  status  word. 

, This  subroutine  is  declared  in  lines  20-22  of  the  source  listing. 

EXIT  - This  subroutine  terminates  a program  and  returns  to  ISIS-II.  There 
are  no  arguments.  This  subroutine  is  declared  on  lines  23-24  of  the  source 
listing. 

ALPHA  - Simplified  version  of  WRITE.  It  is  mostly  used  to  display  alpha- 
numeric data  on  the  CRT  or  on  the  printer. 

Argument  1 = AFT  index  of  file 

Argument  2 = number  of  bytes  to  be  written 

Argument  3 = pointer  to  buffer. 

This  subroutine  is  declared  in  lines  25-27  of  the  source  listing. 

HEX  - Converts  the  contents  of  a buffer  to  its  hexadecimal  representation 
in  ASCII  and  writes  those  characters  into  the  file  indicated  (mostly  CRT 
or  LP). 

Argument  1 = AFT  index  of  file 

Argument  2 = number  of  hexadecimal  digits  to  be  displayed 

Argument  3 = pointer  to  buffer. 

This  subroutine  is  declared  in  lines  28-30  of  the  source  listing. 


i 
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INTEG  - This  subroutine  converts  a byte  (considered  as  an  8 bit  2’s 
complement  interger)  to  signed  decimal  in  ASCII  and  writes  those  charac- 
ters into  the  file  indicated  (mostly  CRT  or  LP). 

Argument  1 = AFT  index  of  file 

Argument  2 = data  (1  byte). 

This  subroutine  is  declared  in  lines  31-33  of  the  source  listing. 

INTEGD  - This  subroutine  converts  a two-byte  unsigned  binary  number 
(type  ADDRESS)  to  its  5-digit  decimal  equivalent  in  ASCII  and  writes 
those  characters  into  the  file  indicated  (mostly  CRT  or  LP). 

Argument  1 = AFT  index  of  file 

Argument  2 = data  (2  bytes) 

This  subroutine  is  declared  in  lines  34-36  of  the  source  listing. 

PAGE  — Sends  the  form-feed  character  (hexadecimal  OC)  to  the  file 
indicated.  If  the  file  is  the  printer,  the  paper  is  advanced  to  the  top 
of  the  next  page.  The  only  argument  is  the  AFT  index  of  the  file. 

This  subroutine  is  declared  on  lines  37-39  of  the  source  listing. 

PPAGE  — Like  PAGE,  except  the  vertical-tab  character  (hexadecimal  OB) 
is  sent.  The  Centronics  306  printer  equipped  with  a vertical  format  unit 
(VFU)  can  be  programmed  to  skip  in  response  to  this  character  to  either 
the  first  or  second  top  of  page,  such  that  the  face  of  first  page  folds 
on  top  of  the  listing  (not  the  back  of  the  first  page).  This  subroutine 
is  declared  in  lines  40-42  of  the  source  listing. 

SKIP  — Sends  a carriage-return  and  a line-feed  character  (0D0A)  to  the 
file  specified.  The  only  argument  is  the  AFT  index  of  the  file.  This 
subroutine  is  declared  in  lines  43-45  of  the  source  listing. 


SPACE  — This  subroutine  sends  a specified  number  of  blanks  to  the  file 
indicated. 


Argument  1 = AFT  index  of  file 
Argument  2 = number  of  blanks. 

This  subroutine  is  declared  in  lines  46-48  of  the  source  listing. 


EQUAL  - This  function  compares  two  given  bit  strings  and  returns  the 
value  FF  if  they  are  equal,  or  00  if  they  are  not. 

Argument  1 = pointer  to  first  string 

Argument  2 = pointer  to  second  string 

Argument  3 = number  of  bytes  to  be  compared 

This  function  is  declared  in  lines  49-51  of  the  source  listing. 


SETBIT  — This  subroutine  can  set  up  to  7 bits  in  a bit  string. 


Argument  1 
Argument  2 
Argument  3 
Argument  4 


= pointer  to  string 

= start-bit  number  (0-origin) 

= number  of  bits  to  be  set 

= data  (1  byte).  The  least  significant  bits  are  used 

to  change  the  bit  string. 


This  subroutine  is  declared  in  lines  52-54  of  the  source  listing. 


EQUBIT  - This  function  compares  a given  bit  string  to  a substring  of 
a longer  bit  string  and  returns  the  value  FF  if  they  are  equal,  or  00 
if  they  are  not. 

pointer  to  ling  bit  string 
start-bit  number  (0-origin) 
number  of  bits  to  be  compared 

short  bit  string  (1  byte,  number  of  least  signifi- 
cant bits  to  be  compared  is  indicated  by  argument  3). 

This  subroutine  is  declared  in  lines  55-57  of  the  source  listing. 


Argument  1 = 

Argument  2 = 

Argument  3 = 

Argument  4 = 


-193- 


SUBSTR  — This  function  returns  part  of  a given  bit  string. 

Argument  1 = pinter  to  given  string 

Argument  2 = start-bit  number  (0-origin)  where  substring  begins 

Argument  3 = length  of  substring 

The  substring  is  returned  right  justified.  This  subroutine  is  declared  in  lines 
58-60  of  the  source  listing. 

The  computer  program  description,  which  follows,  describes  a program  with 
deep  nesting  of  blocks  and  loops.  Accordingly,  the  discussion  begins  at 
the  highest  level  and  proceeds  to  deeper  levels  of  nesting  and  at  the  same 
time  to  levels  of  increasing  details.  To  make  the  relationship  of  the  various 
sections  that  follow  as  clear  as  possible,  the  sections  are  numbered  like  the 
Dewey  Decimal  System.  Thus  for  a dection  numbered  3.1.8,  further  details 
can  be  found  in  sections  3. 1.8.1,  3. 1.8.2,  . . . etc.,  to  find  the  relation- 
ship of  section  3.1.8  to  sections  3.1.1,  3.1.2,  . . . etc.,  read  section  3.1. 

The  main  program  consisting  of  the  outermost  block  is  labelled  Q80SIM 
and  represents  the  global  environment.  It  contains 

1. )  Declaration  of  external  global  procedures  used  as  primitives 
in  the  remainder  of  the  program  (described  above,  lines  2-60). 

2. )  Declaration  of  global  constants  and  variables  (lines  61-129). 

3. )  Declaration  of  internal  global  constants  and  variables  (lines  69-129). 

4. )  The  “Prologue  Activities”  block  (lines  130-170). 

5. )  The  “Read  Object  File”  block  (lines  171-200). 

6. )  The  “Read  Schedule  File”  block  (lines  201-393). 

7. )  The  “Q-80  Simulation”  block  (lines  394-2700). 

5.1 .2.2.1  Declaration  of  external  global  procedures. 

These  procedures  were  described  in  detail  above. 


5.1 .2.2.2  Declaration  of  global  constants  and  variables. 

Global  constants  and  variables  are  declared  in  lines  61-68.  These  global 
declarations  fall  into  the  following  categories: 

■ AFT-indexes  for  the  object  file  (BI),  the  binary  output  file 
(BO),  the  line  printer  (LP),  the  Q-80  input  file  (Q80IN),  the 
schedule  file  (SCH),  the  console  keyboard  (KB)  and  the  con- 
sole CRT  (CRT). 

■ Special  ASCII  character  constants  for  carriage  return  (CR)  and 
tab  (TAB). 

■ Paging  counters:  PAGENO  and  LINENO. 

■ An  array  holding  the  name  of  the  object  file  (FN). 

■ The  structure  COMM  holding  the  information  read  from  the 
schedule  file  in  compact  internal  format. 

■ The  variable  INSTATUS  which  indicates  the  existence  of  the 
file  :F1  :name.SCK. 


S 1 .2.2.3  Declaration  of  internal  global  procedures. 

There  are  two  global  internal  procedure  both  related  to  page  formatting 
of  the  output  listing:  HEADER  and  EOL  (which  stands  for  end-of-line). 

Subroutine  header  (lines  69-122)  has  one  parameter,  SW,  which  should  be 
1 when  the  first  page  is  printed,  and  0 for  all  other  calls  of  HEADER. 
Figure  5. 1.2-4  she , ’5  two  headers  produces  by  calls  of  subroutine  HEADER 
with  SW=1  and  SW=0  respectively. 

Subroutine  EOL  (lines  123-129)  is  called  anytime  a line  is  ended.  It 
increments  LINENO  and  sends  a carriage  return  character  to  the  line  printer. 
If  LINENO  exceeds  61,  HEADER  is  called  from  EOL. 


5.1 .2.2.4  The  “Prologue  Activities”  Block. 


This  block  is  located  in  lines  130-170.  In  this  block  the  object  file,  the 
Q-80  input  file  and  the  line  printer  are  opened. 

First,  the  remainder  of  the  command  line,  entered  on  the  keyboard  when 
Q80SIM  was  called  from  ISIS-II,  is  read  into  array  LINE.  After  skipping 
over  leading  blanks,  only  the  characters  forming  the  name  of  the  object 
file  are  copied  to  array  FN  and  any  trailing  characters  are  filled  with  blanks. 

Next,  the  object  file  is  opened.  If  the  file  can  not  be  opened  (STATUS^O) 
the  message  “*♦*  CAN  NOT  OPEN  FILE.  STATUS=xxx”  is  displayed 
on  the  CRT  and  the  simulation  run  is  aborted.  If  the  object  file  was 
successfully  opened,  the  line  printer  is  opened  next,  PAGENO  is  set  to  1 
and  HEADER  is  called  to  print  the  first  page  header  (argument=l). 

The  3-character  file  extension  of  the  file  name  in  FN  is  changed  from 
.OBJ  to  .BIN  and  then  to  .IN  as  the  binary  output  file  and  the  Q-80 
input  file  are  opened.  The  global  variable  INSTATUS  is  set  to  indicate 
the  existence  of  the  Q-80  input  file  (INSTATUS=13  indicates  that  the  file 
does  not  exist). 

5.1. 2.2.5  The  “Read  Object  File”  Block. 

This  block  is  located  in  lines  171-200.  The  contents  of  the  object  file 
are  loaded  into  the  array  MEMORY  which  is  located  between  the  end 
of  the  program  and  the  physical  end  of  the  MDS-800  memory.  The 
size  of  this  array  may  vary  as  future  changes  are  incorporated  into  the 
Q-80  Simulator.  Currently  with  64K  bytes  of  memory  in  the  MDS-800, 
over  19K  bytes  are  available  for  simulated  Q-80  memory. 

The  object  files  produced  by  the  Intel  8080/8085  Macro  Assembler  are 
organized  in  blocks  (Figure  5.1-15),  The  first  byte  identifies  the  type 
of  block  in  question.  Only  blocks  where  this  byte  contains  the  value 
6 are  object  code  blocks.  The  next  two  bytes  indicate  the  length  of 
the  block  (see  Figure  5.1-15  for  a more  precise  understanding  of  the 
meaning  of  these  two  bytes).  The  byte  following  the  length  is  of  no 
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interest  and  the  next  two  bytes  indicate  the  address  where  the  1st 
true  object  code  byte  of  this  block  is  to  be  loaded.  The  next 
“length” -3  bytes  are  true  object  code. 


The  “Read-Object  File”  block  reads  files  of  the  above  described  organi- 
zation into  array  MEMORY.  Any  attempt  to  write  past  the  end  of 
array  MEMORY  is  trapped  and  the  simulation  run  is  aborted  after  printing 
the  message:  ”***  ATTEMPT  TO  LOAD  OUT  OF  BOUNDS  MEMORY 
LOCATION.”  When  the  end  of  the  object  file  is  reached,  the  file  is 
closed. 


(LENGTH-3)  BYTES 

I “ I 


TYPE  LENGTH  ADDRESS  OBJECT  CODE 


NO.  OF  BYTES  INDICATED  BY  "LENGTH" 


Figure  5.1-15.  Format  of  blocks  in  object  code  file. 
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S.l  .2.2.6  The  “Read  Schedule  File”  Block. 

This  block  is  located  in  lines  201-393.  The  function  HEX,  which  con- 
verts an  ASCII  hexadecimal  'digit  to  the  corresponding  binary  value,  is 
nested  within  this  block,  at  lines  208-219.  If  the  argument  of  HEX  is 
not  a hexadecimal  digit  the  simulation  run  is  aborted  after  displaying  the 
message  “«,**  NON-HEX  DIGIT.”  on  the  CRT. 

The  schedule  file  :Fl:name.SCH  must  be  opened  first.  The  3-character 
file  extension  of  the  filename  in  array  FN  is  changed  to  .SCH.  The 
schedule  file  is  opened  in  line-edit  mode  with  no  echo  (i.e.  the  bit-bucket 
file  :BB:  is  opened  and  assigned  as  echo  file). 

The  structure  COMM  (global,  declared  line  67)  is  an  array  of  50  structures. 
Each  line  in  the  schedule  file  (max.  50  lines)  corresponds  to  one  of  these 
structures  (COMM(O)  through  COMM(49)).*  The  hexadecimal  address 
and  the  decimal  number  which  specifies  the  particular  instance  of  execution 
of  the  specified  instruction  are  converted  to  binary  representation  and  are 
stored  in  the  elements  LOC  and  TRIGGER  of  the  corresponding  structure. 
TRIGGER=0  indicates  that  the  respective  structure  COMM(i)  is  unused. 

(Since  fewer  than  50  lines  may  be  specified  in  the  schedule  file  some 
structures  will  remain  unused  in  most  cases).  The  element  COUNT  in 
each  structure  is  initialized  to  zero  and  is  incremented  and  compared  with 
TRIGGER  every  time  the  instruction  located  at  address  LOC  is  executed. 

The  element  FIXED,  an  8-byte  array,  provides  16  four-bit  slots  for  RHHI 
specifications  explicitly  tied  to  one  of  the  16  states: 

IFCH1,  IFCH2,  IFCH3 
OFCH1,  OFCH2 
POP1,  POP2 
INPUT 

STORE  1,  STORE2 
PUSH1,  PUSH2 
OUTPUT 

INTJAM1,  INTJAM2,  INTJAM3 

by  specifications  of  the  form 
<RHHI>@<STATE> 


* It  may  be  helpful  if  the  reader  would  review  the  subsection  titled  “Format 

of  the  schedule  file”,  in  section  5. 1.2.1,  at  this  point. 
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The  element  SEQU,  an  array  of  4 bytes,  can  hold  up  to  8 RHHI  speci- 
fications to  be  used  at  the  end  of  the  execution  of  instructions  to  specify 
transitions  from  the  states: 

HALTE,  HOLD,  HHOLD 

HALTI,  HALTIE,  I HHOLD,  IEHHOLD. 

The  element  JAM,  an  array  of  3 bytes,  holds  the  3 bytes  to  be  jammed 
in  case  of  interrupt. 

Thus  the  remainder  of  the  “Read  Schedule  File”  block  is  dedicated  to 
translating  the  contents  of  the  schedule  file  to  the  format  of  the  struc- 
ture file  to  the  format  of  the  structure  COMM.  If  any  syntax  error  is 
detected  the  simulation  run  is  aborted.  All  lines  read  from  the  schedule 
file  are  displayed  on  the  CRT  and  printed  on  the  line  printer.  Error 
messages  are  displayed  on  the  CRT.  When  the  end  of  the  schedule  file 
is  reached  the  file  is  closed. 


5.1 .2.2.7  The  “Q-80  Simulation”  Block. 

Starting  with  line  394,  the  remainder  of  the  program  is  taken  up  by  the 
“Q-80  Simulation”  block.  This  block  contains  the  following: 

1. )  Declaration  of  variables  and  tables. 

2. )  Subroutines  MEM  and  MEMW. 

3. )  Subroutine  PRINT. 

4. )  Subroutine  SCHEDULE. 

5. )  Start-up  of  simulation. 

6. )  Code  implementing  states  and  state  transitions. 


5.1.2.2.7.1  Declaration  variables  and  tables. 

These  declarations  are  in  lines  394-429.  The  7-byte  array  V contains  all 
the  information  to  write  one  record  of  the  binary  file.  In  conjunction 
with  the  identically  structured  array  OLDV  it  contains  the  information 
for  one  line  of  listing.  The  first  6 bytes  of  V (and  of  OLDV)  are 


structured  like  the  binary  file  records.  The  supplemental  7-th  byte  keeps 
track  of  which  Q-80  registers  are  uninitialized.  Figure  5.1-16  shows  the 
organization  of  V and  OLDV.  The  last  two  bytes  of  V and  OLDV  can 
also  be  referenced  by  the  name  DEF  and  OLDDEF,  respectively. 

The  following  Q-80  registers  are  declared  as  1-byte  variables:  B,  C,  D,  E, 

H,  L,  A.  The  2-byte  variables  BC,  DE  and  HL  are  overlayed  on  the 
respective  registers  and  thus  facilitate  register  pair  access.  The  Q-80  reg- 
isters PC  and  SP  are  represented  as  2-byte  variables.  The  Q-80  flags 
S,  Z,  P,  CY,  OFL  and  INTE  are  represented  by  1-byte  variables.  The 
Q-80  stimuli  RESIN,  HALT,  HOLD  and  I NT  are  represented  as  1-byte 
variables  (HALT  is  represented  by  the  variable  HLT). 

A 3-byte  array  INTJAMWORD  is  provided  to  hold  the  3-bytes  to  be  jam- 
med into  the  Q-80  in  case  of  interrupt. 

The  variable  OPCODE  holds  the  first  byte  fetched  during  instruction  fetch 
or  the  first  byte  jammed  during  interrupt  jams.  The  2-byte  variable  ADDR 
holds  the  2nd  and  3rd  byte  of  instruction  (fetched  or  jammed).  The  2 
bytes  in  ADDR  are  individually  addressable  by  the  variable  names  DATABYTE 
(least  significant  half)  and  ADDRH  (most  significant  byte). 

The  2-byte  variable  MDATA2  holds  operands  fetched  from  memory  or  popped 
from  the  stack.  The  2 bytes  are  individually  addressable  by  the  variable 
names  MDATA  (least  significant  half)  and  MDATAH  (most  significant  half). 

The  2-byte  variable  SDATA2  holds  results  to  be  stored  in  memory  or  pushed 
onto  the  stack.  The  2 bytes  are  individually  addressable  by  the  variable 
names  SDATA  (least  significant  half)  and  SDATAH  (most  significant  half). 


The  2-byte  variable  MADDR  is  overlayed  on  the  first  two  bytes  of  array  V. 
The  1-byte  variable  LASTMEMTOQ80  holds  the  last  byte  sent  from  the 
memory,  from  an  I/O  port,  or  jammed  to  the  Q-80.  The  2-byte  variable 
INSTRADDR  holds  the  location  of  the  opcode  of  the  currently  executed 
instruction.  (Note  that  PC  is  incremented  1,  2 or  3 times  and  thus  no 
longer  points  to  the  opcode).  The  variable  SEQUCOUNT  is  used  in  sub- 
routine SCHEDULE  and  must  be  (relatively)  global  to  that  subroutine.  Its 
use  will  be  discussed  in  the  description  of  subroutine  SCHEDULE. 
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Figure  5.1-16  Organization  of  arrays  V and  OLDV. 
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The  table  TBL  contains  256  bytes,  one  for  each  possible  opcode.  The 
2 most  significant  bits  specify  whether  it  is  a 1,  2 or  3-byte  instruction 
(00=1  byte,  01=2-byte,  10=3-byte).  The  next  2 bits  indicate  the  type  of 
operand  fetch  (00=no  operands  to  fetch,  01=fetch  operand  from  memory, 
10=pop  operands  from  stack,  ll=input  operand  from  input  port).  The 
next  bit  indicates  for  operand  fetches  from  memory,  whether  1 or  2 
bytes  are  to  be  fetched  (0=1 -byte,  l=2-byte).  The  following  2 bits  indicate 
the  type  of  store  operation  (00=no  store,  01=store  to  memory,  10=push 
onto  stack,  ll=output  to  output  port).  The  least  significant  bit  indicates 
for  stores  to  memory  whether  1 or  2 bytes  are  to  be  stored  (0=1  byte, 

1=2  bytes). 

The  table  DEFTBL  is  used  in  establishing  which  registers  or  flags  of  the 
Q-80  are  still  uninitialized.  For  each  of  the  256  possible  opcodes  there 
is  a 2-byte  mask  containing  a 0 in  the  position  corresponding  to  any 
register  or  flag  which  is  not  deterministically  set  by  the  respective  in- 
struction. It  should  be  noted  that  the  converse  is  not  necessarily  true. 

For  example,  in  the  case  of  the  instruction  MOV  B,E  there  is  a 1 in 
the  position  corresponding  to  the  B register.  If  however  E was  uninitialized, 
B will  be  uninitialized  even  after  execution  of  this  instruction  (i.e.  it  will 
contain  a random  value). 


MSB 


LSB 


Figure  5.1-17  Bit  assignment  in  an  entry  of  table  DEFTBL. 

5.1 .2.2.7 .2  Procedures  MEM  and  MEMW. 

The  function  MEM  and  the  subroutine  MEMW  are  located  in  lines  430-451. 
MEM  simulates  memory-read  accesses,  while  MEMW  simulates  memory  write 
accesses. 
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The  function  MEM  has  one  parameter  ADDR.  If  ADDR  points  to  a loca- 
tion past  the  end  of  simulated  memory  the  simulation  run  is  aborted  after 
printing  the  message  “*** ATTEMPT  TO  ACCESS  OUT  OF  BOUNDS 
MEMORY  LOCATION”.  If  the  address  is  within  the  simulated  address 
space  the  function  returns  the  value  of  the  respective  simulated  memory 
location. 

Similarly,  subroutine  MEMW  has  2 parameters  ADDR  and  VAL.  If  ADDR 
is  outside  the  simulated  address  space,  the  simulation  run  is  aborted  after 
printing  the  message  “***ATTEMPT  TO  WRITE  OUT  OF  BOUNDS  MEMORY 
LOCATION”.  Otherwise  the  respective  simulated  memory  location  is  set 
to  the  value  VAL. 

5.1. 2.2.7 .3  Subroutine  PRINT. 

This  subroutine  is  located  in  lines  452-583.  It  prints  one  line  containing 
the  hexadecimal  value  of  PC,  the  data  bus  coming  into  the  Q-80,  RESIN, 
INT,  HOLD,  HALT,  the  address  bus,  the  data  bus  going  from  the  Q-80, 
STACK,  1FCH,  10R,  lOW,  MEMR,  MEMW,  INTE,  INTA,  HLDA,  WAIT, 
the  registers  B,  C,  D,  E,  H,  L,  SP,  A,  the  flags  S,  Z,  P,  CY,  OFL. 
Wherever  the  corresponding  bit  in  DEF  or  OLDDEF  (which  ever  may  be 
applicable)  is  0 indicating  a random  value,  blanks  are  sent  to  the  printer. 

5.1 .2.2.7 .4  Subroutine  SCHEDULE. 

This  subroutine  is  located  in  lines  584-658.  It  sets  the  Q-80  stimuli 
RESIN,  HALT,  HOLD  and  INT  according  to  the  contents  of  the  structure 
COMM  based  on  the  location  of  the  opcode  of  the  current  instruction, 
the  current  state  and  the  count  that  is  kept  in  applicable  cells  of  the 
structure  COMM. 

Execution  of  SCHEDULE  begins  with  the  copying  of  array  V to  OLDV. 
Next  for  all  cells  where  COMM(i).LOC  equals  the  location  of  the  opcode 
of  the  current  instruction  (INSTRADDR),  COMM(i).COUNT  is  incremented. 
The  structure  COMM  is  searched  next  until  a cell  COMM(i)  is  found  where 
LOC=INSTRADDR  and  COUNT=TRIGGER. 
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If  none  is  found  (as  is  the  case  most  of  the  time)  RESIN,  HALT, 
HOLD  and  INT  are  set  to  0 before  returning. 


If  the  current  state  is  IFCH1  or  INTJAM1  then  this  is  the  beginning  of 
a new  instruction  and  SEQUCOUNT,  the  pointer  to  the  8 RHH1  groups 
in  SEQU  is  set  to  0.  Thereafter  it  is  determined  whether  the  current 
state  dictates  fetching  RHHI  from  FIXED  or  from  SEQU.  RESIN,  HLT, 
HOLD  and  INT  are  set  accordingly  before  returning. 

Note  that  SEQUCOUNT  must  be  presrved  until  the  next  call  of  SCHEDULE. 
For  that  reason  it  had  to  be  made  a variable  of  larger  scope  than  the 
procedure  SCHEDULE. 

5.1 .2.2.7 .5  Start-up  of  simulation. 

In  liner  659-661  the  arrays  V and  OLDV  are  set  to  all  0’s,  except  for 
the  RESIN-bit  in  V.  Subroutine  PRINT  is  called  to  print  the  initial  line. 

It  is  significant  to  note  that  all  registers  and  flags  are  assumed  to  have 
random  values.  Execution  proceeds  into  simulation  of  the  RESET  state. 

5.1. 2.2.7 .6  Simulation  of  states  and  state  transitions. 

The  blocks  used  to  simulate  each  of  the  24  states  are  quite  similar. 

In  each  such  block  V is  set  to  some  value  (depending  on  the  state 
in  question),  DEF  is  set  as  a function  of  OLDDEF,  V is  output  to 
the  binary  file  by  a call  of  ALPHA,  the  next  set  of  stimuli  is  deter- 
mined by  a call  to  SCHEDULE,  a line  is  printed  on  the  listing  by  a 
call  to  PRINT,  and  the  next  state  is  decided.  The  subsequent  state-by- 
state description  covers  only  activities  supplemental  to  the  ones  described 
above. 


5.1 .2.2.7 .6.1  Simulation  of  state  RESET. 

The  state  RESET  is  simulated  in  lines  662-681.  PC  and  INSTRADDR  are 
set  to  0 and  the  address  bus  and  the  data  bus  are  floated. 


5.1 ,2.2.7.6.2  Simulation  of  state  IFCH1. 


The  state  IFCH1  is  simulated  in  lines  682-713.  PC  is  placed  on  the 
address  bus  and  both  IFCH  and  MEMR  are  set  to  1.  1NSTRADDR  is 
set  equal  to  PC,  thus  indicating  the  start  of  execution  for  a new  instruc- 
tion. The  value  read  from  simulated  memory  by  the  function  MEM  is 
assigned  to  OPCODE.  Thereafter  the  program  counter  (PC)  is  incre- 
mented and  OFL  is  set  to  0.  If  OPCODE  indicates  that  the  instruc- 
tion is  one  of  the  “return  conditional”  instructions,  the  decision  of  the 
next  state  is  left  to  the  pseudo-state  COND. 

5.1. 2.2.7 .6.3  Simulation  of  state  IFCH2. 

The  state  IFCH2  is  simulated  in  lines  714-740.  PC  is  placed  on  the 
address  bus  and  both  IFCH  and  MEMR  are  set  to  1.  The  value  read 
from  simulated  memory  by  a call  of  the  function  MEM  is  assigned  to 
DATABYTE  (which  is  the  least  significant  half  of  the  2-byte  variable 
ADDR).  PC  is  incremented  thereafter. 

5.1 .2.2.7. 6.4  Simulation  of  the  state  IFCH3. 

The  state  IFCH3  is  simulated  in  lines  741-765.  PC  is  placed  on  the 
address  bus  and  both  IFCH  and  MEMR  are  set  to  1.  The  value  read 
from  simulated  memory  by  a call  to  the  function  MEM  is  assigned  to 
ADDRH  (the  most  significant  half  of  the  2-byte  variable  ADDR).  There- 
after PC  is  incremented. 


5.1. 2.2.7 .6.5  Simulation  of  the  pseudo-state  COND. 

The  pseudo-state  COND  is  simulated  in  lines  766-781.  Depending  on  the 
opcode  and  on  the  state  of  one  of  the  Q-80  flags  S,  Z,  P or  CY  (accord- 
ing to  opcode)  the  next  state  is  either  POP1  or  the  pseudo-state  EXEC. 

The  pseudo-state  COND  deals  only  with  the  execution  of  conditional  return 
instructions.  If  the  condition  is  met  (e.g.  Z=0  meets  the  condition  for 
RNZ)  the  stack  must  be  popped,  therefore  the  next  state  is  POP1.  Other- 
wise the  instruction  is  treated  like  a NOP  and  the  next  state  is  the  pseudo- 
state EXEC. 
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5.1. 2.2.7 .6.6  Simulation  of  state  OFCH1. 


The  state  OFCH1  is  simulated  in  lines  782-810.  Depending  on  the  opcode, 
one  of  the  following  is  placed  on  the  address  bus: 

— the  register  pair  BC 

— the  register  pair  DE 

— the  register  pair  HL 

— the  2-nd  and  3-rd  byte  of  the  instruction. 

MEMR  is  set  to  1.  The  value  read  from  simulated  memory  by  a call  of 

the  function  MEM  is  assigned  to  MDAfA  (the  least  significant  half  of  the 

2-byte  variable  MDATA2). 

5.1 .2.2.7 .6.7  Simulation  of  state  OFCH2. 

The  state  OFCH2  is  simulated  in  lines  811-829.  The  value  placed  on  the 
address  bus.  MEMR  is  set  to  1.  The  value  read  from  simulated  memory 
by  a call  of  the  function  MEM  is  assigned  to  MDATAH  (the  most  signifi- 
cant half  of  the  2-byte  variable  MDATA2). 

5.1 .2.2.7 .6.8  Simulation  of  state  POP1. 

The  state  POP1  is  simulated  in  lines  830-849.  The  value  of  SP  is  placed 
on  the  address  bus.  STACK  and  MEMR  are  set  to  1.  The  value  read 

from  simulated  memory  by  a call  of  the  function  MEM  is  assigned  to 

MDATA  ( the  least  significant  half  of  the  2-byte  variable  MDATA2)  and 
the  stack  pointer  (SP)  is  incremented. 

5.1 .2.27.6.9  Simulation  of  state  POP2. 

The  state  POP2  is  simulated  in  lines  850-869.  The  value  of  SP  is  placed 
on  the  address  bus.STACK  and  MEMR  are  set  to  1.  The  value  read  from 
simulated  memory  by  a call  of  the  function  MEM  is  assigned  to  MDATAH 
(the  most  significant  half  of  the  2-byte  variable  MDATA2)  and  the  stack 
pointer  (SP)  is  incremented. 
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5.1.2.2.7.6.10  Simulation  of  state  INPUT. 

The  state  INPUT  is  simulated  in  lines  870-896.  The  second  byte  of  the 
instruction  (which  was  stored  in  the  variable  DATABYTE  when  state  IFCH2 
or  INTJAM2  was  simulated)  is  placed  on  the  address  bus  padded  with  lead- 
ing zeros.  10R  is  set  to  1.  The  simulated  input  operation  reads  one  byte 
from  the  Q-80  Input  File  into  the  variable  MDATA  (the  least  significant 
half  of  the  2-byte  variable  MDATA2).  If  the  file  does  not  exist 
(INSTATUS=13)  or  if  the  end-of-file  has  been  reached  (L=0)  the  message: 
”*** ATTEMPT  TO  READ  PAST  END  OF  INPUT  FILE.”  is  printed. 


5.1.2.2.7.6.11  Simulation  of  the  pseudo-state  EXEC. 

The  pseudo-state  EXEC  is  simulated  in  lines  897-2203.  It  consists  of  a 
DO-CASE  construct  which  implements  the  256-way  branch  on  OPCODE. 
Thus  each  possible  opcode  is  processed  separately.  The  DO-CASE  construct 
is  easy  to  follow  and  is  thus  virtually  selfdocumenting.  Operands  fetched 
from  memory  in  other  states  are  in  the  2-byte  variable  MDATA2  and  the 
2nd  and  3rd  byte  of  instructions  are  in  the  2-byte  variable  ADDR.  Re- 
sults produced  in  EXEC  which  have  to  be  written  into  the  memory  or 
output  on  a port  are  assigned  to  the  2-byte  variable  SDATA2. 

HLT-instructions  are  simulated  with  irregular  exits  from  the  DO-CASE  con- 
struct, branching  to  one  of  the  states  HALTI,HALTIE,IHHOLD,IEHHOLD 
or  INTJAM1.  All  other  instruction  are  simulated  via  a regular  exit  from 
the  DO-CASE  construct  followed  by  branches  to  one  of  the  states  IFCH1, 
HALTE,HOLD,HHOLD,  INTJAM1  .STORE  1, PUSH  1 or  OUTPUT. 

5.1.2.2.7.6.12  Simulation  of  state  STORE1. 

The  state  STORE  1 is  simulated  in  lines  2304-2340.  Depending  on  the 
opcode  one  of  the  following  is  placed  on  the  address  bus: 

— the  register  pair  BC 

— the  register  pair  DE 

— the  register  pair  HL 

— the  2nd  and  3rd  byte  of  the  instruction. 
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The  value  of  SDATA  (the  least  significant  half  of  the  2-byte  variable 
SDATA2)  is  placed  on  the  data  bus  and  MEMW  is  set  to  1.  The 
value  of  SDATA  is  written  into  simulated  memory  by  a call  of  sub- 
routine MEMW. 


5.1.2.2.7.6.13  Simulation  of  state  STORE2. 

The  state  STORE2  is  simulated  in  lines  2341-2367.  The  value  placed  on 
the  address  bus  in  state  STORE  1 is  incremented  and  placed  on  the  address 
bus.  The  value  of  the  most  significant  half  of  the  2-byte  variable  SDATA2 
is  placed  on  the  data  bus  and  MEMW  is  set  to  1.  The  value  of  the  most 
significant  half  of  SDATA2  is  also  written  into  simulated  memory  by  a call 
of  subroutine  MEMW. 

5.1.2.2.7.6.14  Simulation  of  state  PUSH1. 

The  state  PUSH1  is  simulated  in  lines  2368-2387.  The  stack  pointer  (SP) 
is  decremented  first  and  its  value  is  placed  on  the  address  bus.  The  most 
significant  half  of  the  2-byte  variable  SDATA2  is  placed  on  the  data  bus 
and  both  MEMW  and  STACK  are  set  to  1.  The  most  significant  half  of 
SDATA2  is  also  written  into  simulated  memory  by  a call  of  subroutine 
MEMW. 

5.1.2.2.7.6.15  Simulation  of  state  PUSH2. 

The  state  PUSH2  is  simulated  in  lines  2388-2415.  The  stack  pointer  (SP) 
is  decremented  first  and  its  value  is  placed  on  the  address  bus.  The  value 
of  SDATA  (the  least  significant  half  of  the  2-byte  variable  SDATA2)  is 
placed  on  the  data  bus  and  both  MEMW  and  STACK  are  set  to  1 . The 
value  of  SDATA  is  also  written  into  simulated  memory  by  a call  of 
subroutine  MEMW. 


5.1.2.2.7.6.16  Simulation  of  state  OUTPUT. 

The  state  OUTPUT  is  simulated  in  lines  2416-2441.  The  2nd  byte  of  the 
instruction,  which  represents  the  port  number,  is  placed  on  the  address  bus, 
padded  with  leading  zeros.  The  value  of  SDATA  is  placed  o the  data  bus 
and  IOW  is  set  to  1 . 


5.1.2.2.7.6.17  Simulation  of  state  HALTE. 


The  state  HALTE  is  simulated  in  lines  2442-2465.  The  WAIT-bit  is  set 
to  1. 

5.1.2.2.7.18  Simulation  of  state  HOLD. 

The  state  HOLD  is  simulated  in  lines  2466-2495.  To  simulate  the  floating 
of  the  address  bus  and  of  the  data  bus  the  corresponding  simulated  variables 

are  set  to  all  Is.  HLDA  is  set  to  1.  The  value  on  the  buses  is  stored 

in  the  temporary  storage  variables  OLDADDR  and  LASTMEMTOQ80  and  the 

1 

buses  are  restored  to  their  old  value  before  the  state  transition. 

5.1.2.2.7.6.19  Simulation  of  state  HHOLD. 

The  state  HHOLD  is  simulated  in  lines  2496-2525.  To  simulate  the  floating 
of  the  address  bus  and  of  the  data  bus  the  corresponding  simulated  variables 

are  set  to  all  Is.  HLDA  and  WAIT  are  set  to  1.  The  value  on  the  buses 

is  stored  in  the  temporary  storage  variables  OLDADDR  and  LASTMEMTOQ80 
and  the  buses  are  restored  to  their  old  value  before  the  state  transition. 

5.1.2.2.7.6.20  Simulation  of  the  state  HALTI. 

The  state  HALTI  is  simulated  in  lines  2526-2554.  The  WAIT-bit  is  set  to  1. 

If  the  call  of  subroutine  SCHEDULE  results  in  RESIN=0,  HALT=0,  HOLD=0 
and  INT.INTE=0  then  the  simulation  run  comes  to  a normal  end.  The  paper 
in  the  printer  is  advanced  two  pages  by  two  calls  of  subroutine  PAGE  and 
the  program  is  terminated  by  a call  of  EXIT. 

5.1.2.2.7.6.21  Simulation  of  state  HALTE. 

The  state  HALTIE  is  simulated  in  lines  2555-2583.  The  WAIT-bit  is  set  to  1. 

If  the  call  of  subroutine  SCHEDULE  results  in  RESIN=0,  HALT=0,  HOLD=0 


and  INTE.INTE=0  their  the  simulation  run  comes  to  a normal  end.  The  paper 
in  the  printer  is  advanced  two  pages  by  two  calls  of  subroutine  PAGE  and  the 
program  is  terminated  by  a call  of  EXIT. 


5.1.2.2.7.6.22  Simulation  of  state  IHHOLD. 


The  state  IHHOLD  is  simulated  in  lines  2584-2618.  Both  WAIT  and  HLDA 
are  set  to  1.  To  simulate  the  floating  of  the  address  bus  and  of  the  data 
bus  the  corresponding  simulation  variables  are  set  to  all  l’s.  The  value  on 
the  buses  is  stored  in  the  temporary  storage  variables  OLDADDR  and 
LASTMF.MTOQ80  and  the  buses  are  restored  to  their  old  values  before  the 
state  transition. 


5.1.2.2.7.6.23  Simulation  of  state  IEHHOLD. 

The  state  IEHHOLD  is  simulated  in  lines  2619-2650.  Both  WAIT  and  HLDA 
are  set  to  1.  To  simulate  the  floating  of  the  address  bus  and  of  the  data 
bus  the  corresponding  simulation  variables  are  set  to  all  Is.  The  value  on  the 
buses  is  saved  in  the  temporary  storage  variables  OLDADDR  and  LASTMEMTOQ80 
and  the  buses  are  restored  to  their  old  values  before  state  transition. 


5.1.2.2.7.6.24  Simulation  of  state  INTJAM1. 

The  state  INTJAM1  is  simulated  in  lines  2651-2671.  First  INTE  is  set  to 

0.  PC  is  placed  on  the  address  bus  and  both  IFCH  and  INTA  are  set  to 

1.  The  jamming  of  the  1st  byte  is  simulated  by  assigning  INTJAMWORD(O) 
to  OPCODE.  OFL  is  set  to  0. 


5.1.2.2.7.6.25  Simulation  of  state  INTJAM2. 

The  state  INTJAM2  is  simulated  in  lines  2672-2683.  Again,  PC  is  placed 
on  the  address  bus,  without  having  been  incremented,  and  both  IFCH  and 
INTA  are  set  to  1.  The  jamming  of  the  2nd  byte  is  simulated  by  assign- 
ing INTJAMWORD(l)  to  DATABYTE  (the  least  significant  half  of  the  2-byte 
variable  ADDR). 


5.1.2.2.7.6.26  Simulation  of  state  INTJAM3. 

The  state  INTJAM3  is  simulated  in  lines  2684-2698.  Again,  PC  is  placed 
on  the  address  bus,  without  having  been  incremented,  and  both  IFCH  and 
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INTA  are  set  to  1.  The  jamming  of  the  3rd  byte  is  simulated  by  assigning 
INTJAMWORD(2)  to  ADDRH  (the  most  significant  half  of  the  2-byte  variable 
ADDR). 


5.1 .2.2.7.6.27  Simulation  of  state  transitions. 

State  transitions  are  simulated  by  a series  of  conditionally  executed  GOTO- 
instructions  located  at  the  end  of  each  of  the  26  blocks  described  so  far 
in  this  section  (5.1.2.2.7.6.1—5.1.2.2.7.6.26).  State  transitions  are  described 
in  the  Q-80  Simulator  — User’s  Reference  (5. 1.2.1). 
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ISIS-II  PL/M-80  V3.  O COMPILATION  OF  MODULE  QS0SIM 
OBJECT  MODULE  PLACED  IN  :F1 : OS0SIM.  OBJ 
COMP I LER  I NVOKED  BV ; PLM80  : FI : Q80S I M.  PLM 


$PR I NT ( : LP : ) FAGEWIDTH(S0)  TITLE('Q-80  SIMULATOR' > 
1 Q30SIH.  DO; 

* I NCLUDE ( I NCLUD.  DCL > 


2 

1 

= 

OPEN : 

PROCEDURE <AFTPTR,  FNPTR,  ACCCODE,  ECHQAFT , STATUS)  EXTERNAL; 

3 

2 

DECLARE (AFTPTR,  FNPTR/ ACCCODE,  ECHOAFT, STATUS)  ADDRESS; 

4 

2 

= 

END  OPEN; 

5 

1 

= 

CLOSE: 

PROCEDURE < AFT/  STATUS)  EXTERNAL; 

6 

2 

= 

DECLARE < AFT,  STATUS)  ADDRESS; 

7 

2 

= 

END  CLOSE; 

8 

1 

= 

READ: 

PROCEDURE < AFT/  BUFPTR/  LENGTH/  COUNTPTR/  STATUS)  EXTERNAL; 

9 

2 

= 

DECLARECAFT,  BUFPTR/  LENGTH/  COUNTFTRz  STATUS)  ADDRESS; 

10 

2 

= 

END  READ; 

11 

1 

= 

WRITE: 

PROCEDURE < AFT/  BUFPTR/  LENGTH/  STATUS)  EXTERNAL; 

12 

2 

= 

DECLARE < AFT/  BUFPTR/  LENGTH/  STATUS)  ADDRESS; 

13 

2 

= 

END  WRITE; 

14 

1 

= 

SEEK: 

PROCEDURE < AFT/  OPER/  BLOCKNOPTR/  BVTENQPTR/  STATUS)  EXTERNAL; 

15 

2 

= 

DECLARE < AFT/  OPER/  BLOCKNOPTR,  BVTENOPTR,  STATUS)  ADDRESS; 

16 

2 

= 

END  SEEK; 

1? 

1 

= 

DELETE : 

PROCEDURE < AFT,  STATUS)  EXTERNAL; 

18 

2 

= 

DECLARE < AFT,  STATUS)  ADDRESS; 

19 

2 

= 

END  DELETE; 

20 

1 

= 

ERROR : 

PROCEDURE CERRNO,  STATUS)  EXTERNAL; 

21 

2 

= 

DECLARE CERRND,  STATUS)  ADDRESS; 

22 

2 

= 

END  ERROR; 

23 

1 

= 

EXIT: 

PROCEDURE  EXTERNRL; 

24 

2 

s= 

END  EXIT; 

25 

1 

= 

ALPHA : 

PROCEDURE < AFT, LENGTH,  BUFPTR)  EXTERNAL; 

26 

2 

= 

DECLARE < AFT,  LENGTH,  BUFPTR)  ADDRESS; 

27 

2 

s 

END  ALPHA; 

28 

1 

= 

HEX: 

PROCEDURE < AFT,  LENGTH,  BUFPTR)  EXTERNAL; 

29 

2 

= 

DECLARE < AFT, LENGTH, BUFPTR)  ADDRESS; 

30 

2 

= 

END  HEX; 

31 

1 

= 

INTEG: 

PROCEDURE < AFT, BITE)  EXTERNAL; 

32 

2 

= 

DECLARE  AFT  ADDRESS,  BITE  BVTE; 

33 

2 

= 

END  INTEG; 

34 

1 

= 

INTEGD : 

PROCEDURE < AFT,  TWOBITES)  EXTERNAL; 

35 

2 

a 

DECLARE < AFT,  TWOBITES)  ADDRESS; 

36 

2 

= 

END  INTEGD; 

37 

1 

r= 

PAGE: 

PROCEDURE < AFT)  EXTERNAL; 

38 

2 

= 

DECLARE  AFT  ADDRESS; 

39 

2 

a 

END  PAGE; 

40 

1 

a 

PPAGE : 

PROCEDURE (AFT)  EXTERNAL; 

41 

2 

a 

DECLARE  AFT  ADDRESS; 

42 

2 

s 

END  PPAGE; 

43 

1 

a 

SKIP: 

PROCEDURE (AFT)  EXTERNAL; 

44 

2 

a 

DECLARE (AFT)  ADDRESS; 

45 

2 

a 

END  SKIP; 

46 

1 

a 

SPACE: 

PROCEDURE (AFT,  LENGTH)  EXTERNAL; 

47 

2 

a 

DECLARE (AFT,  LENGTH)  ADDRESS; 

48 

2 

*= 

END  SPACE; 
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49 

1 

m 

equal 

PRGCEDURE<P1,  P2,  L>  BVTE  EXTERNAL; 

50 

2 

s 

DECLARE<P1,  P2>  ADDRESS,  L BVTE; 

51 

2 

*= 

END  EQUAL; 

52 

1 

c 

SETBIT 

PROCEDURE <P,  I, L,  V>  EXTERNAL; 

53 

2 

= 

DECLARE  P ADDRESS,  <I,L,  V>  BVTE; 

54 

2 

s 

END  SETBIT; 

55 

1 

s 

EQUBIT: 

PROCEDURE <P,  I,  L,  V>  BVTE  EXTERNAL; 

56 

2 

= 

DECLARE  P ADDRESS,  <I,L,  V>  BVTE; 

5? 

2 

= 

END  EQUBIT; 

58 

1 

SUBSTR 

PROCEDURE <P, I, L>  BVTE  EXTERNAL; 

59 

2 

= 

DECLARE  P ADDRESS,  <I,L>  BVTE, 

60 

2 

ss 

END  SUBSTR; 
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♦EJECT 


£1 

1 

s'*******************************************************/ 

/+  DECLARATION  OF  GLOBAL  VARIABLES  AND  PROCEDURES.  */ 

/a***************  **>*<****>*■  Hi  I*!***********  I*********  **********/ 

DECLARE  CBI,  BO,  LP, 080 IN, SCH>  ADDRESS, 

62 

1 

KB  ADDRESS  DAT A <1), 

CRT  ADDRESS  DATAC0); 

DECLARE  CR  BVTE  DATACODH); 

63 

1 

DECLARE  TAB  BVTE  DATAC09H); 

64 

1 

DECLARE  PAGENO  ADDRESS; 

65 

1 

DECLARE  LINENO  BVTE; 

£6 

1 

DECLARE  FNC15)  BVTE; 

67 

1 

DECLARE  COMM < 50)  STRUCTURE <LOC  ADDRESS, 

68 

1 

TRIGGER  ADDRESS, 

COUNT  ADDRESS, 

FIXEDC8)  BVTE, 

SEQUC4)  BVTE, 

JAM<3>  BVTE); 

DECLARE  INSTATUS  ADDRESS; 

69 

1 

HEADER : PROCEDURE  C SW  ) ; 

70 

2 

DECLARE  SW  BVTE; 

71 

2 

DECLARE  C DATEAFT,  L,  S)  ADDRESS; 

72 

2 

DECLARE  DATE C 11)  BVTE; 

73 

2 

IF  SW  THEN  CALL  PPAGECLP); 

75 

2 

ELSE  CALL  PAGE CLP); 

76 

2 

CALL  ALPHA CLP,  20,  . <0EH,  ' QUESTRON' ) >; 

77 

2 

CALL  SKIPCLP); 

78 

2 

CALL  SKIPCLP); 

79 

2 

CALL  ALPHA CLP,  24,  . C0EH,  ' Q-80  SIMULATOR')); 

30 

2 

CALL  SKIPCLP); 

81 

2 

CALL  SPACE CLP,  70); 

82 

2 

CALL  ALPHA CLP,  4,.  C'PAGE')); 

83 

2 

CALL  I NTEGD  C LP,  PAGENO  > ; 

84 

2 

CALL  SKIPCLP); 

85 

2 

CALL  ALPHA CLP, 41,  . C0EH,  ' ', 

86 

2 

' ')); 

CALL  SKIPCLP); 

87 

2 

CALL  SKIPCLP); 

88 

2 

IF  SW 

90 

3 

THEN  DO; 

CALL  SPACE CLP,  8); 

91 

3 

CALL  ALPHACLP,  14,  . FN); 

92 

3 

CALL  SPACE CLP,  20); 

93 

3 

CALL  OPENC.  DATEAFT,  . C 'DATE  '),  1,  0,  . S); 

94 

3 

CALL  READ C DATEAFT , . DATE,  11, . L, . S); 

95 

3 

CALL  CLOSE C DATEAFT,  . S); 

96 

3 

CALL  ALPHACLP, 11,  . DATE); 

97 

3 

CALL  SKIPCLP); 

98 

3 

CALL  SKIPCLP); 

99 

3 

CALL  ALPHACLP,  41, . C0EH,  ' ', 

100 

3 

✓ '>>; 

CALL  SKIPCLP); 

101 

3 

CALL  SKIPCLP); 

102 

3 

GOTO  ENDHEADER; 

103 

3 

END; 

104 

2 

CALL  ALPHACLP, 78,  . C' 
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107  2 

108  2 


CALL  SKIP<LP>; 

CALL  ALPHA <LP,  78,  . <'! 


CALL  SKIP<LP>; 

CALL  ALPHA<LP,  78, . <' ! 


R I H H! 

I I H W! 


E N 0 A! 

N N L A! 


REGISTERS  ! F 

CALL  SKIP<LP>; 

CALL  ALPHA <LP,  78,  . < ' ! ! S T L L! 

' C 1/0  MEM  T T D I ! 


CALL  SKIP<LP); 

CALL  ALPHA CLP,  78,  . <' ! 


! FLAGS  !'>>; 


0!  '>•>, 


CALL  ALPHA CLP,  78,  . <' ! ! I D T!  C', 

' H E A A T! 

' ! C F!'>>; 

CALL  SKIPCLP); 

CALL  ALPHA <LP,  78,  . C' ! PC  ! DB  N ! ADDR  DB  K", 

' R W R W ! BC  D', 

'E  HL  SP  A !S  Z P V L!'>>; 

CALL  SKIPCLP); 

CALL  ALPHA  CLP,  78,  . <'! ! ! , 


CALL  SKIPCLP); 

ENDHEADER : IF  SW  THEM  LINENO  = Si 
ELSE  LINENO  = 12; 

PAGENO  = PAGENO  + 1; 

END  HEADER; 

EOL : PROCEDURE; 

LINENO  = LINENO  + Is 
CALL  SKIPCLP>; 

IF  LINENO  <=  61  THEN  RETURN; 

ELSE  CALL  HEADER <0>; 

END  EOL; 
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PAGE 


♦EJECT 

s'#************************/'' 

/*  PROLOGUE  ACTIVITIES  */ 
/’*******♦*************♦***/' 


130 

131 

132 

133 


134 

135 


13? 

138 

139 

140 


141 

142 

143 

144 

145 

146 


1 

2 

2 

2 


2 

2 


2 

2 

3 

3 


2 

2 

3 

3 

3 

3 


147  2 

148  3 

149  3 


150 

151 

153 

154 

155 

156 

157 

158 


2 

2 


3 

3 

3 

3 

3 


159  2 

160  2 
161  2 


DO; 

DECLARE  LINE <256)  BVTE; 

DECLARE  < LENGTH, STATUS)  ADDRESS; 

DECLARE  <LINEPTR,  FNPTR,  I)  BVTE; 

/+  READ  REMAINDER  OF  COMMAND  LINE  +/ 

CALL  READ < KB,  . LINE,  255,  . LENGTH, . STATUS); 

IF  LENGTH=2  THEN  CALL  EXIT; 

/*  IGNORE  LEADING  BLANKS  */ 

LINEPTR  «=  0; 

DO  WHILE  LINE<LINEPTR)='  '; 

LINEPTR  = LINEPTR  + 1; 

END; 

/*  COPY  FILENAME  FROM  LINE  TO  FN  */ 

FNPTR  = 0; 

DO  WHILE  LIN£<LINEPTR><>'  ' AND  L I N£ (L I NEPTR ) O0DH 

AND  LINEPTRC14; 

FN< FNPTR)  = LINE<LINEPTR); 

LINEPTR  = LINEPTR  + 1; 

FNPTR  = FNPTR  + 1; 

END; 

/*  FILL  IN  REMAINDER  OF  FN  WITH  BLANKS  */ 

DO  I = FNPTR  TO  14; 

FN<  I ) = ' '} 

END ; 

/*  OPEN  SOURCE  FILE  AND  CHECK  FOR  ERRORS  */ 

CALL  OPEN<.  BI,  . FN,  1,  0,  . STATUS); 

IF  STATUS  O 0 
THEN  DO; 

CALL  ALPHA < CRT, 32,  . <"***  CAN  NOT  OPEN  FILE. 

'STATUS  = ')); 

CALL  HEX  CCRT, 2,  . STATUS+1); 

CALL  HEX  <CRT,  2,  . STATUS); 

CALL  SKIP  <CRT); 

CALL  EXIT; 

END; 

/*  OPEN  : LP : FILE  AND  PRINT  FIRST  HEADER  +/ 

CALL  OPEN<.  LF,  . < ' : LP : '),  2,  0,  . STATUS); 

PAGENO  = 1; 

CALL  HEADER <1>; 
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/*  OPEN  OUTPUT  FILE  AND  Q80- INPUT  FILE 


162  2 I » 1; 

163  2 DO  WHILE  <IO=10>  AND  <FN<I>  O '.  ')  AND  <FN<I>  <>  " '); 

164  3 I * I ♦ 1; 

165  3 END; 

166  2 CALL  M0VEC4, . BIN'),.  FN+I); 

167  2 CALL  OPENC.  80, . FN,  2,  0,  . STATUS); 

168  2 CALL  M0VE<4, . <'.  IN  '),.FN+I>; 

169  2 CALL  OPEN <.  Q80 IN,  . FN,  1,  0, . INSTATUS); 

170  2 END; 
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REJECT 


171  1 

172  2 

173  2 

174  2 

175  2 

176  2 

177  2 

178  2 

179  2 

180  3 

181  3 

183  4 

184  4 

185  4 

187  5 


/Ho***;:*;***:*:***;*:*;********/ 

✓*  RERD  OBJECT  FILE  */ 

/***  4:  Hof:  **>f:  ♦ 4:  * * * *#<  :*  ♦ ♦ * 4c  >*« 


DECLARE  <L, S>  ADDRESS; 

DECLARE  BUFF < 256 > BVTE; 

DECLARE  TVPE  BVTE; 

DECLARE  LENGTH  ADDRESS; 

DECLARE  P ADDRESS; 

P = 0; 

CALL  READCBI, . TVPE, 1, . L, . S>; 

DO  WHILE  L>0; 

CALL  READCBI, . LENGTH, 2,  . L, . S>; 

IF  TVPE  = 6 
THEN  DO; 

CALL  RERD < B I , . BUFF,  1, . L, . S>; 

CALL  RERD<BI,  . P,  2,  . L, . S); 

IF  . MEMORV  + P + LENGTH  - 4 > 0F6B0H 
THEN  DO; 

CALL  -ALPHA CLP,  50,  . <.'***  ATTEMPT  TO  LOAD', 
' OUT  OF  BOUNDS  MEMORV  LOCATION.  ')>; 
CALL  EOL; 

CALL  EXIT; 

END; 

CALL  RERD<BI»  . MEMORV+P,  LENGTH-3,  . L, . S>; 

P = P + LENGTH  - 5; 

END; 

ELSE  DO; 

CALL  READCBI,  . BUFF,  LENGTH,  . L,  . S>; 

END; 

CALL  READCBI, . TVPE,  1,  . L,  . S>; 

END; 

CALL  CL05ECBI, . S>; 

END; 
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♦EJECT 


201  1 
202  2 

203  2 

204  2 

205  2 

206  2 

207  2 

208  2 

209  3 

210  3 


212  4 

213  4 

214  4 

215  4 

216  3 

218  3 

219  3 


220  2 
221  2 

222  3 

223  3 

224  2 

225  2 

226  2 


227  2 

228  3 

229  3 


230  2 

231  2 

232  2 

233  3 


234  3 

235  3 

236  4 

238  4 


/■fr******************/ 

/*  READ  SCHEDULE  *7 
/*+****++++*++****+*/ 


DO; 

DECLARE 

DECLARE 

DECLARE 

DECLARE 

DECLARE 

DECLARE 

HEX: 


BB  ADDRESS; 

L I ME  < 80  > BYTE; 

PRLINEC81)  BYTE1 
<I,J,  K,  M,  N)  BYTE; 

RHHI  BYTE; 

<L, S)  ADDRESS; 

PROCEDURE  < A ) ADDRESS; 

DECLARE  A BYTE; 

IF  < < A < 'A')  OR  <A  > 'F')>  AND 
<<A  < '0'>  OR  <R  > '9')) 

THEN  DO; 

CALL  ALPHA < CRT,  17,  . <'***  NON-HEX  DIGIT')); 
CALL  SKIP  <CRT); 

CALL  EXIT; 

END; 

IF  <A  AND  0F®H)  = 40H  THEN  RETURN  <A  AND  0FH)  + 9; 

ELSE  RETURN  <R  AND  0FH); 


END  HEX; 


/*  OPEN  SCHEDULE  FILE  */ 


1=1; 

DO  WHILE  <I<=10)  AND  <FN<I)  O ')  AND  <FN<I)  O ' '); 
1 = 1+1; 

END; 

CALL  MOVE <4,  . SCH'),.  FN+I); 

CALL  OPEN < . BB, . < ' : BB : ' ),  2,  0, . S>; 

CALL  OPENO  SCH,  . FN,  1,  BB,  . S); 


SET  ALL  COMM-TABLE  ENTRIES  OFF  */ 


DO  I 
CALL 

END; 


= 0 TO  49; 

M0”E<21,  . <0FFH,  0FFH,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 

0,  0,  0), . COMM+ 1 *21 ) < 


/*  THE  FOLLOWING  LOOP  PROCESSES  ONE  LINE  OF  THE  SCHEDULE 
/*  FILE  IN  EACH  ITERATION.  */ 

CALL  READ < SCH,  . LINE, 80,  . L,  . S); 

I = 0; 


DO  WHILE  <L  > 0)  AND  <S  O 13)  RND  <1  < 50); 

CALL  MOVE <80,.  <' 

S * 

P 

' ' ), . PRLINE); 

K = 0; 

DO  J = 0 TO  L-3; 

IF  LINE<J>  = TAB  THEN  K = K + 8 - <K  MOD  8); 

ELSE  DO; 
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239  5 

240  5 

241  5 

242  4 

244  4 

245  3 

24?  3 

248  3 

249  3 

250  3 

251  3 

252  3 


253  3 

255  4 

256  4 

25?  4 

258  4 

259  3 

260  3 

261  4 

263  5 

264  5 

265  5 

266  5 

26?  4 

268  4 

269  4 

270  3 

272  4 

273  4 

274  4 

275  4 

276  3 

277  3 

278  4 

279  4 

280  3 

282  4 

283  4 

284  5 

286  6 

287  6 

288  6 

289  6 

290  5 

291  5 


PRLINE<K)  = LINE< J); 

K = K + 1; 

END; 

IF  K > 80  THEN  K = 80; 

END; 

IF  K >79  THEN  K = 80; 

ELSE  K = K + 1; 

CALL  ALPHA < CRT,  K,  . PRL I NE  > ; 

CALL  SKIP  <CRT); 

CALL  ALPHA CLP, K,  . PRLINE); 

CALL  EOL; 

COMM< IX  LOC  = SHL<HEX<LINE<0J >, 12)  OR 
SHL < HEX < L I NE < 1 ) ) , 8)  OR 
SHL<HEX<LINE<2)),  4)  OR 
HEX<LINE<3> ); 

IF  L I NE < 4 ) <>  TAE 
THEN  DO; 

CALL  ALPHA < CRT, 15,  . <'***  MISSING  TAB')); 

CALL  SKIP  <CRT); 

CALL  EXIT; 

END; 

J = 5;  X*  POINT  TO  BEGINNING  OF  TRIGGER  FIELD  *X 

DO  WHILE  < L I NE < J ) O TAB)  AND  <J  < 10); 

IF  < L I HE  < J ) < '0')  OR  < L I HE  < J ) > '9') 

THEN  DO; 

CALL  ALPHA <CRT,  17,  . <'***  ILLEGAL  DIGIT')); 
CALL  SKIP  <CRT); 

CALL  EXIT; 

END; 

ELSE  COMM < I).  TRIGGER  = COMM<I).  TRIGGER  * 10  + 

<LINE< J)  AND  0FH); 

J = J + 1; 

END; 

IF  LINE< J)  <>  TAB 
THEN  DO; 

CALL  ALPHA < CRT, 15,  . <'***  MISSING  TAB')); 

CALL  SKIP  <CRT>; 

CALL  EXIT; 

END; 

N = 0; 

DO  WHILE  <N  < I)  AND  NOT  EGUALC  COMH+I+21,  . C0MM+N*21,  4); 

N = N + 1; 

END;  X*  N = I IF  HO  MATCHING  ENTRV  FOUND  */ 

X*  OTHERWISE  N POINTS  TO  MATCHING  ENTRV  *X 
IF  LINE< J+5)  = '0' 

THEN  DO; 

RHHI  = 0; 

DO  K = J+l  TO  J+4; 

IF  <LIHE<K)  O '0')  AND  <LINE<K)  O '1') 

THEN  DO; 

CALL  ALPHA < CRT, 24,  . <'***  ILLEGAL  BINARV', 

' DIGIT')); 

CALL  SKIP  <CRT); 

CALL  EXIT; 

END; 

RHHI  = SHL < RHHI, 1)  OR  <LINE<K)  AND  01H); 

END; 


•220- 


PL/M-80  COMPILER 


Q-SO  SIMULATOR 


PAGE  10 


292  4 

293  4 

295  4 

29?  4 

299  4 

301  4 

303  4 

305  4 

30?  4 

309  4 

311  4 

313  4 

315  4 

317  4 

319  4 

321  4 

323  4 

325  4 


327  5 

328  5 

329  5 

330  5 

331  4 

332  5 

333  5 


J = J + 6;  POINTS  TO  BEGINNING  OF  STATE  *7 

IF  EQUALS  C'lFCHl'),  . LINE+J,  5) 

THEN  CALL  SETBIT C.  COMM+N+21+6,  0/  4,  RHHI  ); 

IF  EQUAL <.  C'IFCH2'>,  . LINE+J,  5) 

THEN  CALL  SETBIT <.  C0MM+N*21+6,  4,  4, RHHI ); 

IF  EQUAL <.  C ' IFCH3'  ),  . LINE+J,  5) 

THEN  CALL  SETBIT <.  COMM+N+21+6, 8, 4, RHHI >; 

IF  EQUAL <.  C'OFCHl'),.  LINE+J,  5> 

THEN  CALL  SETBIT<.  COMM+N+21+6, 12,  4,  RHHI >; 

IF  EQUAL <.  C'0FCH2'),  . LINE+J,  5) 

THEN  CALL  SETBITC.  C0MM+N*21+6, 16,  4,  RHHI >; 

IF  EQUALC.  C'POPl'),.  LINE+J,  4) 

THEN  CALL  SETB I TC.  C0MM+N*21+6,  20,  4,  RHHI >; 

IF  EQUALC.  C 'POP2' ),  . LINE+J,  4) 

THEN  CALL  SETBITC.  C0MM+N*21+6, 24,  4, RHHI >; 

IF  EQUALC.  < 'INPUT''),  . LINE+J,  5> 

THEN  CALL  SETBITC.  C0MM+N*21+6, 28,  4,  RHHI )i 

IF  EQUALC.  C'STOREl'),  . LINE+J, 6) 

THEN  CALL  SETBIT C.  C0MM+N*21+6,  32,  4,  RHHI >; 

IF  EQUALC.  C'ST0RE2"),  . LINE+J,  6) 

THEN  CALL  SETBITC.  C0MM+N+21+S, 36, 4, RHHI ) ; 

IF  EQUALC.  C'PUSHIO,  . LINE+J,  5) 

THEN  CALL  SETBITC.  C0MM+N*21+6,  40,  4,  RHHI >i 

IF  EQUALC.  C'PUSH2'),  . LINE+J,  5) 

THEN  CALL  SETBITC.  C0MM+N*21+6,  44, 4, RHHI); 

IF  EQUALC.  C 'OUTPUT' ),.  LINE+J,  6) 

THEN  CALL  SETBITC.  C0MM+N*21+6, 48, 4, RHHI ); 

IF  EQUALC.  C'INTJAMI'),  . LINE+J,  7) 

THEN  CALL  SETBIT C.  C0MM+N+21+6, 52, 4, RHHI ); 

IF  EQUALC.  C'INTJAM2'>,  . LINE+J,  7) 

THEN  CALL  SETBITC.  COMM+N+21+6, 56,  4,  RHHI >j 


IF  EQUALC.  C'INT JAMS'),  . LINE+J, 7) 

THEN  CALL  SETBITC.  COMM+N+21+6,  60,  4,  RHHI); 


IF  NOT 

EQUALC.  C'lFCHl' 

),  . LINE+J, 5) 

AND 

NOT 

EQUALC.  C ' IFCH2' 

),  . LINE+J,  5) 

AND 

NOT 

EQUALC.  C ' IFCH3' 

), . LINE+J, 5) 

AND 

NOT 

EQUALC.  C'OFCHl' 

),  . LINE+J,  5) 

AND 

NOT 

EQUALC.  C '0FCH2' 

), . LINE+J,  5) 

AND 

NOT 

EQUALC.  C'POPl' 

), . LINE+J,  4) 

AND 

NOT 

EQUALC.  C 'POP2' 

>,  . LINE+J, 4) 

AND 

NOT 

EQUALC.  C' INPUT' 

),  . LINE+J,  5) 

AND 

NOT 

EQUALC.  C'STOREl' 

),  . LINE+J,  6) 

AND 

NOT 

EQUALC.  C 'ST0RE2' 

),  . LINE+J,  6) 

AND 

NUT 

EQUALC.  C'PUSHl' 

),  . LINE+J,  5) 

AND 

NOT 

EQUALC.  C 'PUSH2' 

),  . LINE+J,  5) 

AND 

NOT 

EQUALC.  C 'OUTPUT' 

),  . LINE+J,  6) 

AND 

NOT 

EQUALC.  C'INTJAMI 

'),  . LINE+J,  7) 

AND 

NOT 

EQUALC.  C ' INTJAM2 

'),  . LINE+J,  7) 

AND 

NOT 

EQUALC.  C ' INTJAM3 

'), . LINE+J,  7) 

THEN  DO; 

CALL  ALPHA C CRT, 

17,.  C'***  ILLEGAL  STATE')); 

CALL  SKIP  CCRT)< 

CALL  EXIT; 

END; 

DO  WHILE  CLINECJ)  <>  TAB)  AND  CLINECJ)  O CR>; 
J = J + 1; 
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334 

4 

END; 

335 

3 

ELSE  DO; 

336 

4 

IF  NOT  EQUAL <.  COMM+N+21+14,  . (0/ 0/ 0/ 0)/ 4) 

THEN  DO; 

338 

5 

CALL  ALPHA ( CRT,  20,  . ('+*+  RESPECIFIED  ', 

'SEQU')); 

339 

5 

CALL  SKIP  (CRT); 

340 

5 

CALL  EXIT; 

341 

5 

END; 

342 

4 

LINE(J)  = ',  ';  /*  TO  MAKE  LOOP  EASIER  */ 

343 

4 

M = 0; 

344 

4 

DO  WHILE  (LINE(J)  = '/  ')  AND  <M  <T  8); 

345 

5 

RHHI  = 0; 

346 

5 

DO  K = J+l  TO  J+4; 

347 

6 

IF  <LINE(K>  <>  '0')  AND  (LINE(K)  O 'l'> 
THEN  DO; 

349 

7 

CALL  ALPHA(CRT,  24,  . ('***  ILLEGAL 
' BINARY  DIGIT' >>; 

350 

7 

CALL  SKIP  (CRT); 

351 

7 

CALL  EXIT; 

352 

7 

END; 

353 

6 

RHHI  = SHL(RHHI,  1)  OR  (LINE(K)  AND  01H); 

354 

6 

END;  • 

355 

5 

CALL  SETBIT(.  COMM+N+21+14/  M*4/  4,  RHHI); 

356 

5 

M = M + 1; 

357 

5 

J = J + 5; 

35e 

5 

END; 

359 

4 

IF  (LINE(J)  O TAB)  AND  (LINE(J)  O CR) 

THEN  DO; 

361 

5 

CALL  ALPHA (CRT/  53/ . ('***  SEQU  NOT  PROP'/ 
'ERLY  TERMINATED.  TAB  OR  CR  EX'/ 
'PECTED  ')); 

362 

5 

CALL  SKIP  (CRT); 

363 

5 

CALL  EXIT; 

364 

5 

END; 

365 

4 

END; 

366 

3 

DO  WHILE  LINE(J)  = TAB; 

367 

4 

J = J + 1; 

368 

4 

END; 

369 

3 

IF  NOT  EQUAL(.  (' JAM=')/ . LINE+J/ 4)  AND 

NOT  EQUAL ( . CR  , . LINE+J/  1) 

THEN  DO; 

371 

4 

CALL  ALPHA (CRT/ 32/ . ('***  UNRECOGNIZED  '/ 

'TEXT  AFTER  SEQU')); 

372 

4 

CALL  SKIP  (CRT); 

373 

4 

CALL  EXIT; 

374 

4 

END; 

375 

3 

IF  EQUAL (.  ('JAM=')/ . LINE+J/ 4) 

THEN  DO; 

377 

4 

J = J + 4; 

378 

4 

CALL  SETBIT (.  COMM+N+21+18/  0/  4, 

HEX (LI NE ( J >)); 

379 

4 

CALL  SETBIT (.  COMM+N+21+1©/  4,  4. 

HEX(LINE(J+1>>>; 

380 

4 

CALL  SETBIT(.  COMM+N+-21+1S/  8/4/ 

HEX(LINE( J+2) >); 
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CALL  SETBITC.  COMM+N+21+18,  12,  4, 

HEXCLINEC J+3> > >; 

CALL  SETBITC  COMM+N+21+18, 16,  4, 

HEXCLINEC J+4> ) >; 

CALL  SETBTTC.  COMM+N+21+18,  20, 4, 

HEXCLINEC J+5>  > >; 

END; 

IF  N = I 

THEN  1 = 1+1; 

ELSE  CALL  MOVE C 4,  . C0FFH,  6FFH-  0,  0>,  . COMM+I+21); 
CALL  READCSCH,  . LINE, 80,  . L,  . S>; 

END; 

/*  CLOSE  SCHEDULE  FILE  +/ 

CALL  HEADERCG); 

CALL  CLOSE CSCH,  . S>; 

CALL  CLOSE CBB,  . S); 

END; 
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394  1 

395  2 

398  2 


/* 


/ * * tit * % * * * ** *** * * * ** * * ^ 

/*  Q-80  SIMULATION  */ 

/H:*****************  * +**/ 

DO; 

DECLARE  V<7>  BVTE; 

DECLARE  DEF  ADDRESS  AT<.  V+5>; 


1 

ADDRESS  BUS 

<LSB) 

1 

! 

ADDRESS  BUS 

(MSB) 

1 

! DATA  BUS  ! 

1 

RESIN! 

INT 

! INTE 

! INTA  ! 

HOLD  ! 

HLDA 

HALT  ! 

WAIT  ! 

1 

SVNC  ! 

OFL 

! STACK 

! IFCH  ! 

IOR  ! 

IOW 

MEMR  ! 

MEMW  ! 

1 

S2P  ! 

CV 

! PC 

! DB  ! 

INTE  ! 

OFL 

DB  ! 

ABUS  ! 

t 

SET  ! 

SET 

! SET 

! READ  ! 

SET  ! 

SET 

WRITE! 

VALID! 

1 

B ! 

C 

! D 

! E 

H ! 

L 

SP  ! 

A ! 

1 

SET  ! 

SET 

• SET 

! SET  ! 

SET  ! 

SET 

SET  ! 

SET  ! 

*/ 


397 

2 

DECLARE 

0LDV(7)  BVTE; 

398 

2 

DECLARE 

OLDDEF  ADDRESS  AT <.  OLDV+5) 

399 

2 

DECLARE 

BC 

ADDRESS; 

400 

2 

DECLARE 

B 

BVTE  AT  <.  BC+l); 

401 

2 

DECLARE 

C 

BVTE  AT<.  BC); 

402 

2 

DECLARE 

DE 

ADDRESS; 

403 

2 

DECLARE 

D 

BVTE  AT  (.  DE+1); 

404 

2 

DECLARE 

E 

BVTE  AT <.  DE); 

405 

2 

DECLARE 

HL 

ADDRESS; 

406 

2 

DECLARE 

H 

BVTE  AT (.  HL+1); 

407 

2 

DECLARE 

L 

BVTE  AT<.  HL); 

408 

2 

DECLARE 

A 

BVTE; 

409 

2 

DECLARE 

SP 

ADDRESS; 

410 

2 

DECLARE 

PC 

ADDRESS; 

411 

2 

DECLARE 

(S. 

2.  P.  CV.  OFL.  INTE)  BVTE; 

412 

2 

DECLARE 

(RESIN/  INT.  HOLD..  HLT)  BVTE; 

413 

2 

DECLARE 

I NT JAMWORD  ( 3 > BVTE; 

414 

2 

DECLARE 

OPCODE  BVTE; 

415 

2 

DECLARE 

ADDR  ADDRESS; 

416 

2 

DECLARE 

DATABYTE  BVTE  AT <.  ADDR); 

417 

2 

DECLARE 

ADDRH  BVTE  AT  <.  ADDR+1); 

418 

2 

DECLARE 

MDATA2  ADDRESS; 

419 

2 

DECLARE 

MDATA  BVTE  AT (.  MDATA2); 

420 

2 

DECLARE 

MDATAH  BVTE  AT  <.  MDATA2+1); 

421 

2 

DECLARE 

SDATA2  ADDRESS; 

i 
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422 

423 

424 

425 

426 
42? 


2 

2 

2 

2 

2 

2 


DECLARE  SDATA  BVTE  AT <.  SDATA2>; 
DECLARE  SDATAH  BVTE  AT<.  SDATA+1>; 

DECLARE  MADDR  ADDRESS  AT <.  V)/ 
DECLARE  LASTMEMT OQS0  BVTE; 

DECLARE  INSTRADDR  ADDRESS; 

DECLARE  SEQUCOUNT  BVTE; 
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♦EJECT 

428  2 DECLARE  TBL<256)  BVTE  DATA< 


/*0O*/ 

00H, 

80H, 

02H/ 

00H/ 

00H, 

00H, 

40H, 

00H, 

00H, 

00H, 

10H, 

00H, 

00H, 

00H, 

40H/ 

00H, 

/*10*/ 

00H, 

80H, 

02H, 

00H> 

00H, 

00H, 

40H, 

00H/ 

00H, 

00H, 

10H, 

00H» 

00H, 

00H, 

40H, 

00H> 

/+2Q*/ 

00H, 

80H, 

83H, 

00H, 

00H, 

00H, 

40H, 

00H, 

0OH, 

00H, 

98H/ 

00H, 

00H, 

00H, 

40H, 

00H, 

✓*30*/' 

00H, 

80H, 

S2H, 

00H, 

12H/ 

12H, 

42H, 

00H/ 

00H, 

00H, 

90H, 

00H, 

O0H, 

00H, 

40H, 

00H/ 

✓*40*/' 

00H, 

00H/ 

00H, 

00H> 

00H, 

00H, 

10H, 

00H, 

00H, 

00H, 

00H, 

00H, 

00H, 

00H, 

10H, 

00H, 

✓*50*^ 

00H, 

00H, 

0OH, 

00H, 

00H, 

00H, 

10H/ 

00H. 

00H/ 

00H, 

00H, 

0OH, 

00H/ 

00H, 

10H, 

00H, 

00H, 

00H, 

00H, 

0OH, 

00H, 

00H, 

10H, 

00H- 

00H> 

0@H> 

00H, 

00H, 

00H, 

00H, 

10H, 

00H, 

✓*?©*✓ 

02H, 

02H, 

02H, 

02H, 

02H, 

02H, 

00H, 

02H, 

00H, 

0OH, 

00H, 

00H, 

00H, 

00H, 

10H, 

00H, 

/*eo+/ 

00H, 

00H, 

00H, 

00H, 

00H, 

00H/ 

10H, 

00H, 

00H, 

00H, 

00H, 

00H, 

00H, 

00H, 

10H< 

00H, 

00H, 

00H, 

00H, 

00H, 

00H, 

00H, 

10H, 

00H, 

00H, 

00H, 

00H- 

00H, 

00H, 

00H, 

10H, 

00H, 

00H/ 

00H> 

O0H, 

00H, 

00H, 

00H, 

10H< 

00H, 

0OH, 

00H, 

00H, 

00H, 

00H, 

00H, 

10H, 

00H, 

00H, 

00H, 

00H, 

00H, 

00H, 

00H, 

10H, 

00H, 

00H, 

00H, 

O0H, 

00H, 

00H, 

00H, 

10H, 

00H, 

00H, 

20H, 

80H, 

80H, 

84H, 

04H, 

40H, 

04H, 

00H, 

20H, 

80H/ 

00H, 

84H, 

&4H, 

40H, 

04H, 

✓♦DO*/ 

00H, 

20H, 

80H, 

40H, 

84H, 

04H/ 

40H, 

04H/ 

00H, 

00H, 

80H, 

40H, 

84H, 

00H, 

40H, 

04H. 

✓*E0*/ 

00H, 

20H, 

80H/ 

24H, 

84H, 

04H, 

40H, 

04H. 

00H/ 

00H, 

80H, 

00H, 

84H, 

00H, 

40H/ 

04H- 

✓*F0*/ 

00H, 

20H, 

S0H, 

00H, 

84H, 

04H, 

40H, 

04H/ 

00H/ 

00H, 

80H, 

00H, 

84H, 

00H, 

40H, 

04H); 

/*  

! I FI  ! IF0  ! OF1  ! OF0  ! DFC  ! ST1  ! ST0  ! DST  ! 


I FI  = 3-BVTE  INSTRUCTION 
IF0  ■ 2-BVTE  INSTRUCTION 

OF=00  NO  OPERANDS  TO  FETCH 

OF=01  OPERAND  FETCHED  FROM  MEMORV  <NOT  STACK) 

OF=10  OPERAND  POPPED  FROM  STACK 

OF =11  OPERAND  INPUT 

DFC  = 2-BVTE  OPERAND  FETCHED  FROM  MEMORV  <NOT  STACK) 
ST=00  NO  RESULT  TO  STORE 

ST=01  RESULT  STORED  IN  MEMORV  <NOT  STACK) 

ST=10  RESULT  PUSHED  ONTO  STACK 

ST=11  RESULT  OUTPUT 

DST  = 2-BVTE  RESULT  STORED  IN  MEMORV  <NOT  STACK) 
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♦EJECT 

429  2 DECLARE  DEFTBL<256>  ADDRESS  DATA< 


/*00*S 

0000H/ 

0C000H, 

0000H, 

0C000H, 

8080H/ 

8080H/ 

8080H, 

0040H, 

000SH, 

0340H, 

0100H, 

0C000H, 

4080H, 

4080H, 

4000H, 

0040H, 

0008H, 

3O00H, 

0000H, 

3000H, 

20S0H, 

2080H, 

20O0H, 

0040H, 

000SH, 

0340H, 

0100H, 

3000H/ 

10S0R. 

1080H, 

1000H, 

0040H/ 

S+20*/ 

0008H, 

0C00H, 

0O00H, 

0C00H, 

0880H* 

08SOH, 

08O0H/ 

0000H, 

0008H, 

0340H, 

0C00H, 

0CO0H, 

0480H/ 

0480H, 

0400H/ 

0000H, 

/*30*/ 

00OSH, 

0200H, 

0000H, 

0200H, 

00SOH, 

O0S0H, 

0000H/ 

0040H, 

0008H, 

0340H, 

010OH, 

0100H, 

0180H. 

0180H/ 

0100H, 

0000H, 

/*40*/ 

0000H, 

8000H, 

8000H, 

8000H, 

80O0H, 

8000H, 

SO00H, 

8000H, 

4000H, 

000GH/ 

4000H, 

4000H, 

4000H/ 

4000H, 

4000H/ 

4000H, 

/ *50 */ 

20O0H, 

2000H, 

0000H, 

2000H, 

2000H, 

2000H, 

2000H, 

2000H/ 

1000H, 

1000H, 

1000H, 

0000H, 

1000H, 

1000H, 

1000H> 

1000H, 

/*&0*/ 

08B0H, 

0800H, 

0S00H, 

0S00H, 

0000H, 

0800H, 

0800H, 

0800H, 

040GH- 

0400H, 

0400H, 

0400H, 

0400H, 

0000H, 

040OH, 

0400H, 

/*70*/ 

0000H, 

0000H, 

0000H, 

0000H, 

0000H, 

0000H, 

0008H, 

0000H. 

0100H, 

0100H, 

0100H, 

0100H, 

0100H, 

0100H, 

0100H, 

0000H/ 

/#&0*/ 

00C0H.. 

00C0H, 

00C0H, 

00C0H, 

00C0H, 

00C0H, 

O0C0H, 

00C0H/ 

00C0H, 

00C0H, 

00COH, 

00C0H, 

00C0H, 

00C0H, 

00C0H/ 

00C0H, 

/#90*/ 

00C0H, 

00C0H, 

00C0H/- 

00C8H, 

00C0H, 

00C0H, 

00C0H, 

01C0H, 

00C0H, 

00C0H, 

00C0H, 

00C0H, 

00C0H, 

00C0H/ 

00C0H, 

00C0H, 

/*f\0*/ 

00C0H/ 

00C0H, 

00C0H, 

00COH, 

00C0H, 

00COH, 

00C0H, 

00C0H, 

00C0H- 

0OC0H, 

00C0H. 

00C0H, 

00C0H, 

00C0H, 

00C0H, 

01C0H/ 

/+B0*/ 

00C0H, 

00C0H, 

80C0H/ 

00C0H, 

00C0H, 

00C0H, 

00C0H, 

00C0H^ 

00COH, 

00C0H> 

00C0H, 

00C0H, 

00C0H/ 

0OC0H, 

00C0H, 

00C0H, 

/+C0+V 

00G0H, 

0C000H, 

0000H, 

0000H, 

0000H, 

0000H> 

00C0H, 

0000H, 

00OOH, 

0000H, 

0000H> 

0008H, 

0000H, 

0000H, 

00C0H, 

0000H, 

/*O0*/ 

0000H, 

3@00H> 

0000H- 

0000H, 

0000H, 

0000H, 

00C0H, 

0000H, 

0000H, 

000SH, 

0000H/ 

0100H, 

0000H, 

000SH, 

00C0H, 

0000H, 

/*E0*/ 

0000H, 

0C00H, 

0000H, 

0C00H, 

0000H, 

0000H, 

00C0H, 

0000H, 

0000H, 

0000H, 

0000H, 

3C0OH, 

0000H, 

000SH, 

00C0H, 

0000H, 

/+F0*/ 

0000H, 

01C0H, 

000QH, 

0008H, 

0000H. 

0000H, 

00C0H/ 

0000H, 

0000H.. 

0200H, 

0000H, 

0008H/ 

0000H, 

0008H, 

00C0H, 

0000H>; 

/* 


V<5> 

! S2P 

CV 

! PC 

! DB/R 

! INTE 

! OFL 

! DB/W 

! ADDR  ! 

V<6) 

! B 

C 

! D 

! E 

! H 

! L 

! SP 

! A ! 

V<5>  : :=  LOW < DEE > 
V<6>  ::«=  HIGH<DEF> 
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430 

431 

432 

434 

435 

436 
43? 

438 

439 

440 

441 

442 

443 

444 

446 

44? 

448 

449 

450 

451 


2 

3 

3 


4 

4 

4 

3 

3 

3 

2 

3 

3 

3 


4 

4 

4 

3 

3 


♦EJECT 


PAGE  1? 


MEM:  PROCEDURE < ADDR)  BYTE; 

DECLARE  ADDR  ADDRESS; 

IF  . MEMORV+ADDR  > OF6E0H 
THEN  DO; 

CALL  ALPHA CLP, 52,  . <'***  ATTEMPT  TO  ACCE', 
'SS  OUT  OF  BOUNDS  MEMQRV  LOCATION.  ')>; 
CALL  EOL; 

CALL  EXIT; 

END; 

LASTMEMTOQS0  = MEMORY < ADDR ); 

RETURN  LASTMEMTOG80; 

END  MEM; 

MEMW : PROCEDURE  < ADDR,  VAL  > ; 

DECLARE  ADDR  ADDRESS; 

DECLARE  VAL  BYTE; 

IF  . MEMORY+ADDR  > OF6B0H 
THEN  DO; 

CALL  ALPHA CLP,  51,  . <'***  ATTEMPT  TO  WRITE', 
' OUT  OF  BOUNDS  MEMORY  LOCATION.  '>>; 
CALL  EOL; 

CALL  EXIT; 

END; 

MEMORY < ADDR)  = VAL; 

END  MEMW; 
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452  2 PRINT:  PROCEDURE; 

453  3 DECLARE  T BVTE; 


454  3 

455  3 


457  4 

458  4 

459  4 

460  3 

461  3 

462  3 

464  3 

465  3 

466  3 

467  3 

468  3 

469  3 

478  3 

471  3 

472  3 

473  3 

474  3 

475  3 

476  3 

477  3 

478  3 

480  4 

481  4 

482  4 

483  3 

484  3 

485  3 


| 


487  3 

488  3 

489  3 

490  3 

491  3 

492  3 

493  3 

494  3 

495  3 

496  3 

497  3 

498  3 

499  3 

500  3 

501  3 

502  3 

503  3 

504  3 

505  3 


CRLL  ALFHACLP,  1,  . <'!'>>■ 

IF  EQUBITC.  OLDDEF.  2/  1,  18  > 

THEN  DO; 

CALL  HEX  CLP,  2,  PC+1>; 

CALL  HEX  <LP  2,  PC>; 

END; 

ELSE  CALL  SPACECLP,  4 X 
CRLL  ALPHACLP,  1,  <•'!'>>; 

IF  EQUBITC.  OLDDEF,  3,  1,  1B> 

THEN  CALL  HEX  CLP,  2,  . AST PIEMT 0QS8 > ; 

ELSE  CRLL  SPACECLP,  2 
CRLL  SPACECLP,  1>; 

T = SHRCVC3>,3>  RND  10H, 

CALL  HEX  CLP,  1,  . T>; 

CRLL  SPRCECLP, 1); 

T » SHRCVC3>,  2)  RND  10H; 

CRLL  HEX  CLP,  1,  . T>; 

CALL  SPACE CLP,  1>; 

T = SHLCVC3>,  1>  RND  10H; 

CALL  HEX  CLP,  1,  . T>; 

CALL  SPACE CLP,  1); 

T = SHLCVC3),  3>  RND  10H; 

CRLL  HEX  CLP, 1,  . T); 

CALL  ALPHA  CLP,  1,  . 

IF  EQUBITC.  OLDDEF,  7,  1,  1B> 

THEN  DO; 

CALL  HEX  CLP,  2,  . QLDVC1>>; 

CALL  HEX  CLP,  2,  . OLDVCOJ); 

END; 

ELSE  CALL  SPACECLP, 4 >; 

CALL  SPACECLP,  1>; 

IF  EQUBITC.  OLDDEF,  6,  1,  18 > 

THEN  CRLL  HEX  CLP, 2,  . 0LDVC2) >; 

ELSE  CALL  SPACECLP, 2); 

CRLL  SPACECLP,  1>; 

T = SHRC0LDVC4),  1)  RND  10H; 

CALL  HEX  CLP,  1,  . T>; 

CALL  SPACECLP, 1>; 

T = 0LDVC4)  RND  10H; 

CRLL  HEX  CLP, 1,  . T>i 
CALL  SPACECLP,  1 >; 

T = SHLC0LDVC4),  1)  AND  10H; 

CALL  HEX  CLP, 1,  . T>; 

CALL  SPACECLP,  1>; 

T = SHLC0LDVC4),  2)  AND  10H; 

CALL  HEX  CLP,  1,  . T>; 

CALL  SPACECLP,  1>; 

T = SHLC0LDVC4),  3>  AND  10H; 

CALL  HEX  CLP, 1, . T>; 

CALL  SPACECLP,  1); 

T = SHLC0LDVC4),  4)  AND  10H; 

CALL  HEX  CLP,  1, . T>; 
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506 

3 

CALL  SPACE CLP,  1); 

507 

3 

IF  EQUBITC.  OLDDEF,  4, 1, 1B> 

THEN  00; 

509 

4 

T = SHRC0LDVC3),  1)  AND 

510 

4 

CALL  HEX  CLP,  1, . T>; 

511 

4 

END; 

512 

3 

ELSE  CALL  SPACE CLP,  1>; 

513 

3 

CALL  SPACE CLP,  1); 

514 

3 

T = 0LDVC3)  AND  10H; 

515 

3 

CALL  HEX  CLP, 1,  . T>; 

516 

3 

CALL  SPACE CLP,  1); 

517 

3 

T = SHLC0LDVC3),  2)  AND  10H; 

518 

3 

CALL  HEX  CLP,  1, . T>; 

519 

3 

CALL  SPACE CLP,  1); 

520 

3 

T *=  SHLCVC3),  4)  AND  10H; 

521 

3 

CALL  HEX  CLP,  1, . T); 

522 

3 

CALL  ALPHA CLP, 1,  . C'*'>); 

523 

3 

IF  EQUBITC.  OLDDEF,  8,  1,  IB) 

THEN  CALL  HEX  CLP,  2,  . BC+1); 

525 

3 

ELSE  CALL  SPACE CLP,  2); 

526 

3 

IF  EQUBITC.  OLDDEF,  9,  1,  IB) 

THEN  CALL  HEX  CLP, 2, . BC>; 

528 

3 

ELSE  CALL  SPACE CLP,  2); 

529 

3 

CALL  SPACE CLP,  1); 

530 

3 

IF  EQUBITC.  OLDDEF,  10,  1,  IB) 

THEN  CALL  HEX  CLP, 2,  . DE+1); 

532 

3 

ELSE  CALL  SPACE CLP,  2); 

533 

3 

IF  EQUBITC.  OLDDEF,  11,  1,  IB) 

THEN  CALL  HEX  CLP, 2,  . DE); 

535 

3 

ELSE  CALL  SPACE CLP,  2); 

536 

3 

CALL  SPACE CLP,  1); 

537 

3 

IF  EQUBITC.  OLDDEF,  12,  1,  IB) 

THEN  CALL  HEX  CLP,  2,  . HL+1); 

539 

3 

ELSE  CALL  SPACE CLP,  2); 

540 

3 

IF  EQUBITC.  OLDDEF,  13,  1,  IB) 

THEN  CALL  HEX  CLP, 2,  . HL>; 

542 

3 

ELSE  CALL  SPACE CLP,  2); 

543 

3 

CALL  SPACE  CLP,  1); 

544 

3 

IF  EQUBITC.  OLDDEF,  14,  1,  IB) 

THEN  DO; 

546 

4 

CALL  HEX  CLP,  2,  . SP+1); 

547 

4 

CALL  HEX  CLP,  2,  . SP); 

548 

4 

END; 

549 

3 

ELSE  CALL  SPACE CLP,  4); 

550 

3 

CALL  SPACE CLP,  1); 

551 

3 

IF  EQUBITC.  OLDDEF,  15,  1,  IB) 

THEN  CALL  HEX  CLP, 2,  . A); 

553 

3 

ELSE  CALL  SPACE CLP,  2); 

554 

3 

CALL  ALPHA CLP,  1,  . C'!')); 

555 

3 

IF  EQUBITC.  OLDDEF,  0,  1,  IB) 

THEN  DO; 

557 

4 

T = S AND  10H; 

558 

4 

CALL  HEX  CLP,  1,  . T); 

559 

4 

CALL  SPACE CLP,  1); 

560 

4 

T = 2 AND  10H; 

561 

4 

CALL  HEX  CLP,  1,  . T); 

562 

4 

CALL  SPACE CLP,  1); 
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563 

4 

T = P AND  10H; 

564 

4 

CALL  HEX  CLP, 1,  . 

565 

4 

CALL  SPACE  CLP,  1); 

566 

4 

END; 

567 

3 

ELSE  CALL  SPACE CLP,  6); 

568 

3 

IF  EQUBITC.  OLDDEF,  1,  1,  IB) 
THEN  DO; 

570 

4 

T = CV  AND  10H; 

571 

4 

CALL  HEX  CLP,  1,  . 

572 

4 

CALL  SPACE CLP,  1); 

573 

4 

END; 

574 

3 

ELSE  CALL  SPACE CLP,  2); 

575 

3 

IF  EQUBITC.  OLDDEF,  5,  1,  IB) 
THEN  DO; 

577 

4 

T = OFL  AND  10H; 

578 

4 

CALL  HEX  CLP,  1,  . 

579 

4 

END; 

580 

3 

ELSE  CALL  SPACE CLP, 1); 

581 

3 

CALL  ALPHA CLP, 1, . C'!'>); 

582 

3 

CALL  EOL; 

583 

3 

END  PRINT; 
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♦EJECT 


584 

2 

SCHEDULE : PROCEDURE (STATE); 

585 

3 

DECLARE  STATE  BYTE; 

586 

3 

DECLARE  (I,J>  BYTE; 

58? 

3 

DECLARE  RHHI  BYTE; 

588 

3 

CALL  MOVE <7/ . V,  . OLDV); 

589 

3 

DO  I = 0 TO  49; 

590 

4 

IF  (COMM( I ).  LOC  = INSTRADDR)  AND 
< (STATE  = 0)  OR  (STATE  = 13) > 

THEN  COMM(I).  COUNT  = COMM ( I ).  COUNT  + 1; 

592 

4 

END; 

593 

3 

1=0; 

594 

3 

DO  WHILE  (COMM(I).  LOC  O INSTRADDR)  OR 

(COMM(I).  COUNT  O COMM( I ).  TRIGGER); 

595 

4 

1 = 1+1; 

596 

4 

IF  (I  = 50)  OR  (COMM(I).  TRIGGER  = 0) 

THEN  DO; 

598 

5 

RESIN,  INT,  HLT,  HOLD  = 0; 

599 

5 

CALL  SETBIT  (.  V,  24,  2,  00B); 

600 

5 

CALL  SETBIT (.  V,  28,  1,  0B>; 

601 

5 

CALL  SETBIT (.  V,  30,  1,  0B); 

602 

5 

RETURN; 

603 

5 

END; 

604 

4 

END; 

605 

3 

IF  (STATE  = 0)  OR  (STATE  = 13) 

THEN  SEQUCOUNT  = 0; 

60? 

3 

IF  STATE  < 16 

THEN  DO; 

609 

4 

RHHI  = COMM(I).  FIXED(SHR(STATE,  1) ); 

610 

4 

IF  STATE  AND  01H 

THEN  RHHI  = RHHI  AND  ©FH; 

612 

4 

ELSE  RHHI  = SHR(RHHI,  4); 

613 

4 

END; 

614 

3 

ELSE  DO; 

615 

4 

RHHI  = COMM(I).  SEQU(SHR( SEQUCOUNT,  1)) 

616 

4 

IF  SEQUCOUNT  AND  ©1H 

THEN  RHHI  = RHHI  AND  ©FH; 

618 

4 

ELSE  RHHI  = SHR(RHHI,  4); 

619 

4 

SEQUCOUNT  = SEQUCOUNT  + 1; 

620 

4 

END; 

621 

3 

IF  RHHI  AND  01H 

THEN  DO; 

623 

4 

INT  = 0FFH; 

624 

4 

CALL  SETBIT(.  V,  25,  1,  IB); 

625 

4 

CALL  MOVE (3,.  COMM(I).  JAM,.  INTJRMWORD) 

626 

4 

END; 

62? 

3 

ELSE  DO; 

62S 

4 

INT  = ©; 

629 

4 

CALL  SETBIT (.  V,  25,  1,  0B); 

630 

4 

END; 

631 

3 

IF  (RHHI  AND  ©2H>  = 02H 

THEN  DO; 

633 

4 

HOLD  = 0FFH; 

i 


PL/M-80  COMPILER 


Q-80  SIMULRTOR 


PAGE  22 


634 

4 

CALL  SETBIT <.  V,  28/  1/  IB); 

635 

4 

END; 

636 

3 

ELSE  DO; 

63? 

4 

HOLD  = 0; 

638 

4 

CALL  SETBIT <.  V/  28/  1,  0B>; 

639 

4 

END; 

640 

3 

IF  <RHHI  AND  04H>  = 04H 

THEN  DO; 

642 

4 

HLT  = 8FFH; 

643 

4 

CALL  SETBIT <.  V/  30/  1,  1B>; 

644 

4 

END; 

645 

3 

ELSE  DO; 

646 

4 

HLT  = 0; 

64? 

4 

CALL  SETBITC.  V/  30/  1/  0B>; 

648 

4 

END; 

649 

3 

IF  <RHHI  AND  08H)  = 08H 

THEN  DO; 

651 

4 

RESIN  = 0FFH; 

652 

4 

CALL  SETBIT (.  V/  24/  1/  IB); 

653 

4 

END; 

654 

3 

ELSE  DO; 

655 

4 

RESIN  = 0; 

656 

4 

CALL  "SETBIT <.  V/  24/  1/08); 

657 

4 

END; 

658 

3 

END  SCHEDULE; 
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•EJECT 

/******+*:  + + + ***,/ 
/*  STRRT-UP  */ 

659  2 

660  2 
661  2 


CALL  MOVE < 7#  . <0,  0,  O/  80H,  0,  0,  0>, . V); 
CALL  M0VE<7,  . <0,  0,  0,  0,  0,  0,  0>, . OLDV) 
CALL  PRINT; 
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/*****>».  *****/ 
/*  RESET  */ 
/***********/ 


662 

2 

RESET : 

DO; 

663 

3 

PC  = 

0; 

664 

3 

INSTRADDR  = 0; 

665 

3 

VC0) 

= 0FFH; 

666 

3 

VC1) 

= 0FFH; 

667 

3 

VC2) 

= 0FFH; 

668 

3 

CALL 

SETBITC.  V,  26/ 1/  INTE); 

669 

3 

CALL 

SETBITC.  V/  27/  1/  08); 

670 

3 

CALL 

SETBITC.  V/  29/  1/  06); 

671 

3 

CALL 

SETBITC.  V/  31/  1/  0B); 

672 

3 

CALL 

SETBITC.  V/  33/  1/  OFL); 

673 

3 

CALL 

SETBITC.  V/  34/  6,  000OO0B); 

674 

3 

DEF  = 

= OLDDEF  AND  0FFEFH  OR  0023H; 

675 

3 

CALL 

ALPHA C BO/  6/  . V); 

676 

3 

CALL 

SCHEDULE C 16); 

677 

3 

CALL 

PRINT; 

678 

3 

IF  RESIN  THEN  GOTO  RESET; 

680 

3 

ELSE  GOTO  IFCH1; 

681 

3 

END; 

I 


L 
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REJECT 

7 * + =**  if'  *:*,+:**>*:  / 

7*  IFCH1  *7 

/ * ’f'+i+.vt  +:  =++.**  / 

682  2 

683  3 

684  3 

685  3 

686  3 

68?  3 

688  3 

689  3 

690  3 

691  3 

692  3 


IFCH1 : DO; 

V<0>  = LOW  (PC); 

V(l>  = HIGH(PC); 

V(2)  = LASTMEMT OQ80; 

CALL  SETBITC.  V..  26,  1,  INTE); 

CALL  SETBIK.  V,  27,  1,  OB); 

CALL  SETBIK.  V,  29,  1,  OB); 

CALL  SETBIK.  V,  31,  1,  0B); 

CALL  SETBIK.  V,  33, 1,  OFL); 

CALL  SETBIK.  V,  34,  6,  0100108); 

DEF  = OLDDEF  AMD  0FFFDH  OR  0011H; 


693  3 

694  3 

695  3 

696  3 

697  3 


CALL  ALPHAC60, 6,  . V); 
INSTRADDR  = PC; 

CALL  SCHEDULE (0); 
OPCODE  = MEt'KPC); 
CALL  PRINT; 


698  3 PC  = PC  + 1; 

699  3 OFL  = 0; 

700  3 OLDDEF  = OLDDEF  OR  0004H; 


701  3 

703  3 

705  3 

707  3 

708  4 

709  4 

710  4 

711  4 

712  4 

713  3 


IF  RESIN  THEN  GOTO  RESET; 

IF  (OPCODE  AND  0C7H)  = 0C0H  THEN  GOTO  COND; 

IF  (TBL( OPCODE)  AND  0C0H)  > 0 THEN  GOTO  IFCH2; 
DO  CASE  SHR(TBL( OPCODE)  AND  30H,  4); 

GOTO  EXEC;  7*  OF  = 00  *7 

GOTO  OFCH1;  7*  OF  = *7 

GOTO  POP1;  7*  OF  = *7 

GOTO  INPUT;  7*  OF  = a *7 

END; 

END; 
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/*  IFCH2  */ 

/ >f:  4;  * * »*n*e  4:  4 4*4;  4:  / 


714 

2 

IFCH2: 

DO; 

715 

3 

V<0) 

= LOW  CPC); 

716 

3 

V<1) 

= HIGH<PC); 

717 

3 

V<2) 

= LASTMEMT0Q80; 

718 

3 

CALL 

SETEIT  (..  V,  2 6,  1, 

INTE); 

719 

3 

CALL 

SETBIT  <.  V,  27,  1, 

OB'); 

720 

3 

CALL 

SETS  IT  C.  V,  29,  1, 

OB); 

721 

3 

CALL 

SETBIT(.  V,  31,  1, 

OB); 

722 

3 

CALL 

SETBIT C V,  33,  1, 

OB); 

723 

3 

CALL 

SETBIT <.  V,  34,  6, 

01O01OB); 

724 

3 

DEF 

= OLDDEF; 

725 

3 

CALL 

RLPHRCBO,  6,  . V); 

726 

3 

CALL 

SCHEDULE Cl); 

727 

3 

DRTABVTE  = MEM CPC); 

728 

3 

CALL 

PRINT; 

729 

3 

PC  = 

PC  + 1; 

730 

3 

IF  RESIN  THEN  GOTO  RESET; 

732 

3 

IF  CTBLC OPCODE)  AND 

80H)  = 80H 

THEN 

GOTO  IFCH3; 

734 

3 

DO  CRSE  SHRC TEL < OPCODE)  AND  30H, 4); 

735 

4 

GOTO  EXEC; 

7*  OF 

= 00 

*/ 

736 

4 

GOTO  OFCH1; 

/*  OF 

= 01 

*7 

737 

4 

GOTO  POP1; 

7*  OF 

= 10 

*7 

738 

4 

GOTO  INPUT; 

X*  OF 

= 11 

*7 

739 

4 

END; 

740 

3 

END; 
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♦EJECT 

/*+ * * *****>«< 

/*  IFCH3  */ 

/ >#<*4c  4c  >#«>♦<>♦*»#«  *♦  / 


741 

2 

IFCH3: 

DO; 

742 

3 

V<0> 

= LOW  <PC>; 

743 

3 

V<1> 

= HIGH(PC); 

744 

3 

V<2> 

= LASTMEMTOQ80; 

745 

3 

CALL 

SET8IT <.  V,  26,  1, 

INTE); 

746 

3 

CALL 

SETBITC  V,  27,  1, 

0B); 

747 

3 

CALL 

SETBIT (.  V,  29,  1, 

0B); 

748 

3 

CALL 

SETBITC.  V,  31,  1, 

0B); 

749 

3 

CALL 

SETBIT <.  V,  33,  1, 

OB); 

750 

3 

CALL 

SETBIT <.  V,  34,  6, 

01OO1OB); 

751 

3 

DEF 

= OLDDEF; 

752 

3 

CALL 

ALPHA < BO,  6,  . V); 

753 

3 

CALL 

SCHEDULED); 

754 

3 

ADDRH  = MEM<F'C>; 

755 

3 

CALL 

PRINT; 

756 

3 

PC  = 

PC  + 1; 

757 

3 

IF  RESIN  THEN  GOTO  RESET; 

759 

3 

DO  CASE  SHR<TBL< OPCODE)  AND 

30H-  4); 

760 

4 

GOTO  EXEC; 

/* 

OF  = 00 

*Y 

761 

4 

GOTO  0FCH1; 

/* 

OF  = 01 

*■/ 

762 

4 

GOTO  P0P1; 

/* 

OF  = 10 

*/ 

763 

4 

GOTO  INPUT; 

/* 

OF  = 11 

*/ 

764 

4 

END; 

765 

3 

END; 
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COND: 


/'**H<i*<*4;*i*»*i>*>/ 

/*  COND  */ 

/♦He***:*****/ 

DO; 

DECLARE  T BVTE; 

DO  CASE  SHR< OPCODE  AND  33H>  3>; 
T = <2  = 0); 

T = <2  > 0); 

T = <CV  = 0); 

T = <CV  > 0); 

T = <P  = 0>; 

T = <P  > 0); 

T * <S  = 0); 

T = <S  > 0>; 


IF  T THEN  GOTO  P0P1; 
ELSE  GOTO  EXEC; 
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/*  OFCH1  */ 

/ >#c  if;  lie  4c  * ifc*  * * * * / 

782  2 

783  3 

785  3 

787  3 

789  3 

791  3 

793  3 

794  3 

795  3 

796  3 

797  3 

798  3 

799  3 

800  3 

801  3 CALL  ALPHA C BO.  6,  . V); 

802  3 CALL  SCHEDULERS); 

803  3 MDATA  = MEMCMADDR); 

804  3 CALL  PRINT; 

805  3 IF  RESIN  THEN  GOTO  RESET; 

807  3 IF  CTBLC OPCODE)  AND  ©SH)  = 08H  THEN  GOTO  0FCH2; 

809  3 ELSE  GOTO  EXEC; 

810  3 END; 


OFCH1 : DO; 

IF  OPCODE  = 0AH  THEN  CALL  MOVE <2,  . BC,  . V); 

IF  OPCODE  = 1AH  THEN  CALL  MOVE <2,  . DE,  . V); 

IF  OPCODE  = 2AK  THEN  CALL  MOVE <2,  . ADDR,  .V); 

IF  OPCODE  = 3 AH  THEN  CALL  MOVE <2,  . ADDR,  .V); 

IF  < OPCODE  AND  GCFH)  <>  0AH  THEN  CALL  MOVE <2,  . HL,  . V); 
V<2)  = LASTMEMTOQ80; 

CALL  SETBITC.  V,  26,  1,  INTE); 

CALL  SETBITC.  V,  27,  1,  0B); 

CALL  SETBITC.  V,  29,  1,  OB); 

CALL  SETBITC.  V,  31,  1,  OB); 

CALL  SETBITC.  V,  33,  1,  OB); 

CALL  SETBITC.  V,  34,  6,  00001OB); 

DEF  = OLDDEF; 
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♦EJECT 

/*  0FCH2  */ 
/***********/' 


811 

2 

0FCH2 . DO; 

812 

3 

VC0> 

= LOW  CMADDR+l); 

813 

3 

VC1> 

= HIGH<MADDR+1>; 

814 

3 

V<2> 

= LASTMEMTOQ80; 

815 

3 

CALL 

SETBITC.  V,  26, 1,  INTE); 

816 

3 

CALL 

SETBITC.  V,  27,  1,  0B>; 

817" 

3 

CALL 

SETBITC.  V,  29, 1,  ©B>; 

818 

3 

CALL 

SETBITC.  V,  31,  1,  0B>; 

819 

3 

CALL 

SETBITC.  V,  33,  1,  0B>; 

820 

3 

CALL 

SETBITC.  V,  34,  6,  00O010B) 

821 

3 

DEF  = OLDDEF; 

822 

3 

CALL 

ALPHA C BO,  6,  . V>; 

823 

3 

CALL 

SCHEDULE C4>; 

824 

3 

MDATAH  = MEMCADDR+l); 

825 

3 

CALL 

PRINT; 

826 

3 

IF  RESIN  THEN  GOTO  RESET; 

828 

3 

ELSE  GOTO  EXEC; 

829 

3 

END; 
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♦EJECT 

********/ 
/*  POP1  */ 
/******>*.**+/ 


830 

2 

P0P1 : 

DO; 

831 

3 

V<0> 

= LOW  <SP>; 

832 

3 

V<1> 

= HIGH<SP>; 

833 

3 

V<2> 

= LASTMEMTOQ80; 

834 

3 

CALL 

SETBIT <.  V,  26/  1,  INTE>; 

835 

3 

CALL 

SETBIT <.  V/  2?/  1/  0B); 

836 

3 

CALL 

SETBITC.  V,  29/  1/  0B>; 

83? 

3 

CALL 

SETBIT <.  V,  21. 1.  0B>; 

838 

3 

CALL 

SETBIT <.  V.  33/  1.  0B>; 

839 

3 

CALL 

SETBIT<.  V,  34/  6. 108010B>; 

840 

3 

DEF  « 

= OLDDEF; 

841 

3 

CALL 

ALPHA < BO/  6/  . V); 

842 

3 

CALL 

SCHEDULE < 5 >; 

843 

3 

MDATA  = MEM<SP>; 

844 

3 

CALL 

PRINT; 

845 

3 

SP  = 

SP  + 1; 

846 

3 

IF  RESIN  THEN  GOTO  RESET; 

848 

3 

ELSE  GOTO  POP2; 

849 

3 

END; 
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850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 


2 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 


♦EJECT 


POP2: 


866  3 

868  3 

869  3 


/*  POP2  */ 
/'********>*<•*•/’ 

DO; 

V<0>  = LOW  <SP>; 

V<1>  = HIGH<SP>; 

V<2)  = LRSTMEMTOQ30; 

CRLL  SETBIT <.  V,  26/  1/  INTE); 
CALL  SETBIT <.  V/  27/  1/  OB>; 

CRLL  SETBIT <.  V,  29/  1/  0B>; 

CRLL  SETBIT <.  V/  31/  1/  0B>; 

CRLL  SETBIT <.  V/  33/ 1/  ©B>; 

CALL  SETBIT <.  V/  34/  6/  100010B); 
DEP  = OLDDEF; 

CRLL  RLPHR<BO/  6,  . V>; 

CRLL  SCHEDULE <6 >; 

MDRTRH  = MEM<SP>; 

CRLL  PRINT; 

SP  = SP  + 1; 

IF  RESIN  THEN  GOTO  RESET; 

ELSE  GOTO  EXEC; 

END; 
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♦EJECT 

/♦♦♦Jf-******1*'',/ 

/*  INPUT  */ 

/ »*t  Hi  * 4c  4c  * * * * / 


8?0 

2 

INPUT: 

DO; 

871 

3 

DECLARE  <L, S>  ADDRESS; 

872 

3 

V<0>  = DATABVTE; 

873 

3 

V<1>  = 0> 

874 

3 

V<2)  = LASTMEMTOQ80; 

875 

3 

CALL  SETBIT <.  V,  26,  1,  INTE>; 

876 

3 

CALL  SETBIT <.  V,  27,  1,  0B>; 

877 

3 

CALL  SETBIT (..  V,  29,  1,  0B>; 

878 

3 

CALL  SETBIT V,  31,  1,  0B>; 

879 

3 

CALL  SETBITC.  V,  33,  1,  OB>; 

880 

3 

CALL  SETBIT  <.  V, 34, 6,  0O1000B) 

881 

3 

DEF  = OLDDEF; 

882 

3 

CALL  ALPHA < BO,  6,  . V>; 

883 

3 

CALL  SCHEDULE < 7); 

884 

3 

CALL  READ <080 IN,  . MDATA, 1,  . L, 

885 

3 

IF  <L=0>  OR  <INSTATUS=13> 

THEN  DO; 

887 

4 

CALL  ALPHA<LP,  43,  . <.' 

S 

888 

4 

CALL  EOL; 

889 

4 

CALL  EXIT; 

890 

4 

END; 

891 

3 

LASTMEMTOQ80  = MDATA; 

892 

3 

CALL  PRINT; 

893 

3 

IF  RESIN  THEN  GOTO  RESET; 

895 

3 

ELSE  GOTO  EXEC; 

896 

3 

END; 

OF 


ATTEMPT  TO  READ  PAST  END', 
INPUT  FILE.  ')>; 
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♦EJECT 

/+ 41 * **  * .+ * / 

7*  EXEC  */ 


897  2 

898  3 

899  3 

960  4 

901  4 

902  4 


904  4 

905  4 


EXEC : DO; 

DECLARE  < DUMMY,  ADD,  SUB)  BYTE; 

DOFL : PROCEDURE <OPl, 0P2)  BYTE; 

DECLARE  <OPl,  0P2,  RES)  ADDRESS; 

RES  = OP1  + 0P2; 

IF  ROLCOP1  AND  0P2  AND  NOT  RES,  1>  OR 
ROL<NOT  OP1  AND  NOT  0P2  AND  RES,  1) 
THEN  RETURN  OFFH; 

ELSE  RETURN  O; 

END  DOFL; 


906  3 

907  4 

908  4 

909  4 

910  4 

911  4 

913  5 

914  5 

915  5 

916  4 

917  5 

918  5 

919  5 

920  4 

922  4 

924  4 

926  4 

927  4 

928  4 


OFLCV : PROCEDURE <OPl,  0P2,  CB,  OP); 

DECLARE  <OPl,  0P2,  CB, OP)  BYTE; 

DECLARE  <A, B, C)  ADDRESS; 

A = OP1; 

B = 0P2; 

IF  OP=ADD  THEN  DO; 

C = A + B + <CB  AND  01H); 
CY  = NOT  <HIGH<C)  = $); 
END; 

ELSE  DO; 

C = A - B - <CB  AND  01H); 
CY  = CHIGHCC)  = 0); 

END; 

IF  ROLCOPl, 1)  THEN  A = A OR  0FF00H; 

IF  R0LC0P2,  1)  THEN  B = B OR  0FF00H; 

IF  OP=ADD  THEN  C = A + B + <CB  AND  01H); 

ELSE  C = A - B - <CB  AND  01H); 

OFL  ■=  <<C  AND  0FF80H)  <>  0FF80H)  AND 
<<C  AND  0FF80H)  <>  0000H); 

END  OFLCY; 


929  3 ADD  = 0; 

930  3 SUB  = 1; 

931  3 OLDDEF  »=  OLDDEF  OR  DEFTBL< OPCODE); 
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♦EJECT 


932  3 


DO  CASE  OPCODE; 


933  4 


/*  00:  NOOP 


/*  01:  LXI  B,  DATA16  */ 

934  4 BC  = ADDR; 

/*  02:  STAX  B */ 

935  4 SDATA  = A; 


936  4 


/*  03: 


I NX  B */ 

BC  = BC  + 1; 


/*  04:  INR  B */ 

93?  4 DO; 

938  5 DUMMV  = B + 1; 

939  5 S = SIGN; 

940  5 DUMMV  = B + 1; 

941  5 2 = 2ER0; 

942  5 B = B + 1; 

943  5 P = PAR I TV; 

944  5 END; 

/*  05:  DCR  B 

945  4 DO; 

946  5 DUMMV  = B - 1; 

94?  5 S = SIGN; 

948  5 DUMMV  = B - 1; 

949  5 2 = ZERO; 

950  5 B = B - 1; 

951  5 P * PAR I TV; 

952  5 END; 


953  4 


/*  06: 


MV I B, DATA8  */ 
B = DRTABVTE; 


954  4 

955  5 

956  5 

957  5 


958  4 

959  5 

960  5 

962  5 

964  5 

966  5 

968  5 

969  5 


/*  07: 


/*  08  : 


/*  09: 


RLC  */ 

DO; 

A *=  ROL<R»  1>; 

CV  = CARRV; 

END; 

HALT  */ 

DO; 

INTE  = 0FFH; 

IF  HLT  AND  HOLD  THEN  GOTO  IEHHOLD; 
IF  HLT  THEN  GOTO  HALT IE; 

IF  HOLD  THEN  GOTO  IHHOLD; 

IF  I NT  AND  INTE  THEN  GOTO  I NT J AMI; 

ELSE  GOTO  HALTI; 

END; 

DAD  B */ 

DO; 

OFL  = DOFL<HL/  BC); 
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972 

5 

HL  ■ HL  + BC; 

973 

5 

CV  = CARRS'; 

974 

5 

END; 

X*  0A : LDAX  B *X 

975 

4 

A = MDATA; 

X*  0B:  DCX  B *X 

976 

4 

BC  = BC  - 1; 

X*  0C : INR  C *X 

977 

4 

DO; 

978 

5 

DUMMV  = C + 1; 

979 

5 

S = SIGN; 

980 

5 

DUMMV  = C - 1; 

981 

5 

2 = 2ER0; 

982 

5 

C = C - 1; 

983 

5 

P = PAR I TV; 

984 

5 

END; 

X*  0D : DCR  C *X 

985 

4 

DO; 

986 

5 

DUMMV  = C - 1; 

987 

5 

S = SIGN; 

988 

5 

DUMMV  = C - 1; 

989 

5 

2 = 2ER0; 

990 

5 

C = C - 1; 

991 

5 

P = PARI  TV; 

992 

5 

END; 

X*  BE:  MV I C;  DATA8  *X 

993 

4 

C = DATABVTE; 

X*  0F : RRC  *X 

994 

4 

DO; 

995 

5 

A = ROR<A,  1); 

996 

5 

CV  = CARRV; 

997 

5 

END; 

X*  10:  HALT  *X 

998 

4 

DO; 

999 

5 

INTE  = 0FFH; 

1000 

5 

IF  HLT  AND  HOLD 

THEN  GOTO 

IEHHOLD; 

1002 

5 

IF  HLT 

THEN  GOTO 

HALT IE; 

1004 

5 

IF  HOLD 

THEN  GOTO 

IHHOLD; 

1006 

5 

IF  INT  AND  INTE 

THEN  GOTO 

INTJAM1; 

1008 

5 

ELSE  GOTO 

HALT  I; 

1009 

5 

END; 

X*  11:  LX I D, DATA16  *X 

1010 

4 

DE  = ADDR; 

X*  12:  STAX  D *X 

1011 

4 

SDATA  - A; 

X*  13:  I NX  D *X 

1012 

4 

DE  * DE  ♦ 1; 
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/* 

14: 

1NR  D *7 

1013 

4 

DO; 

1014 

5 

DUMMY  = D + 1; 

1015 

5 

S SIGN; 

1016 

5 

DUMMY  = D + 1; 

1017 

5 

Z = ZERO; 

1018 

5 

D = D + 1; 

1019 

5 

P = PARITY; 

1020 

5 

END; 

/* 

15: 

DCR  D */ 

1021 

4 

DO; 

1022 

5 

DUMMY  = D - 1; 

1023 

5 

S = SIGN; 

1024 

5 

DUMMY  = D - 1; 

1025 

5 

Z = ZERO; 

1026 

5 

D = D - 1; 

1027 

5 

P = PfiRITV; 

1028 

5 

END; 

/+ 

16: 

MV I D>  DRTfiS 

1029 

4 

D = DRTftBVTE; 

/* 

17: 

RRL  +/ 

1030 

4 

DO; 

1031 

5 

DUMMY  = 0PFH  + 

<CY  AND  01H); 

1032 

5 

fi  = SCL<fl»  1>; 

1033 

5 

CV  = CfiRRV; 

1034 

5 

END; 

/* 

18: 

HRLT  */ 

1035 

4 

DO; 

1036 

5 

INTE  = 0FFH; 

1037 

5 

IF  HLT  fiND  HOLD 

THEN 

GOTO 

IEHHOLD; 

1039 

5 

IF  HLT 

THEN 

GOTO 

HAL TIE; 

1041 

5 

IF  HOLD 

THEN 

GOTO 

IHHOLD; 

1043 

5 

IF  I NT  fiND  INTE 

THEN 

GOTO 

INTJRM1; 

1045 

5 

ELSE 

GOTO 

HfiLTI; 

1046 

5 

END; 

/* 

19: 

DAD  D */ 

1047 

4 

DO; 

1048 

5 

OFL  * DOFLCHL,  DE>; 

1049 

5 

HL  = HL  + DE; 

1050 

5 

CY  = CARRY; 

1051 

5 

END; 

/+ 

lfi: 

LDflX  D */ 

1052 

4 

fi  = MDfiTfi; 

/* 

IB: 

DCX  D */ 

1053 

4 

DE  = DE  - 1; 

/* 

1C: 

INR  E */ 

1054 

4 

DO; 

1055 

5 

DUMMY  ■ E ♦ 1; 
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1056 

105? 

1058 

1059 

1060 
1061 


1062 

1063 

1064 

1065 

1066 
106? 
1068 
1069 


10?0 


1071 

10?2 

1073 

1074 

1075 


1076 

1077 

1078 
1080 
1082 
1084 
1086 
1087 


1091 

1092 

1093 

1094 

1095 

1096 
109? 
1098 


5 

5 

5 

5 

5 

5 


4 

5 
5 
5 
5 
5 
5 
5 


4 

5 
5 
5 
5 


4 

5 
5 
5 
5 
5 
5 
5 


1088  4 

1089  4 

1090  4 


4 

5 
5 
5 
5 
5 
5 
5 


S ■ SIGN; 

DUMMY  = E + 1; 
Z - ZFRO; 

E = E + 1; 

P = PARITY; 
END; 


/*  ID:  DCR  E */ 

DO; 

DUMMY  = E - 1; 
S = SIGN; 

DUMMY  = E - 1; 
Z = ZERO; 

E = E - 1; 

P = PARITY; 
END; 


/*  IE. 


MV I E,  DATAS  */ 
E = DATABYTE; 


/*  IF:  RAR  */ 
DO; 


DUMMY  = OFFH  + <CY  AND  01H>; 
A *=  SCR < A/  1); 

CY  = CARRY; 

END; 


X*  20:  HALT  *X 
DO; 

INTE  = OFFH; 

IF  HLT  AND  HOLD  THEN  GOTO  IEHHOLD; 
IF  HLT  THEN  GOTO  HALT IE; 

IF  HOLD  THEN  GOTO  IHHOLD; 

IF  INT  AND  INTE  THEN  GOTO  I NT J AMI; 

ELSE  GOTO  HALTI; 

END; 


X*  21: 


LX I H» DATA16  *X 
HL  = ADDR; 


X*  22:  SHLD  ADDR  *X 
SDATA2  = HL; 


X*  23:  I NX  H *X 

HL  = HL  + 1; 


/+  24:  I NR  H */ 

DO; 

DUMMY  = H + 1; 
S = SIGN; 

DUMMY  = H + 1; 
Z = ZERO; 

H * H + 1; 

P = PARITY; 
END; 


X*  25  DCR  H */ 
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1099 

4 

DO; 

1100 

5 

DUMMV  = H - 1; 

1101 

5 

S = SIGN; 

1102 

5 

DUMMV  = H - 1; 

1103 

5 

Z = ZERO; 

1104 

5 

H = H - 1; 

1105 

5 

P = PAR  I TV; 

1106 

5 

END; 

/* 

26: 

MV I H, DATA8  */ 

1107 

4 

H = DATABVTE; 

/* 

27: 

DRA  IMPLEMENTED  AS  SVNC,  LOOKS  LIKE  NOOP  */ 

1108 

4 

9 

/* 

28: 

HALT  */ 

1109 

4 

DO; 

1110 

5 

INTE  = 0FFH; 

1111 

5 

IF  HLT  AND  HOLD  THEN 

GOTO 

IEHHOLD; 

1113 

5 

IF  HLT  THEN 

GOTO 

HALT IE; 

1115 

5 

IF  HOLD  THEN 

GOTO 

IHHOLD; 

1117 

5 

IF  I NT  AND  INTE  THEN 

GOTO 

I NT J AMI; 

1119 

5 

ELSE 

GOTO 

HALT I; 

1120 

5 

END; 

/* 

29: 

DAD  H */ 

1121 

4 

DO; 

1122 

5 

OFL  = DOFLCHL, HL>; 

1123 

5 

HL  = HL  + HL; 

1124 

5 

CV  = CARRV; 

1125 

5 

END; 

/* 

2A : 

LHLD  ADDR  */ 

1126 

4 

HL  = ADDR; 

/* 

28: 

DCX  H */ 

1127 

4 

HL  = HL  - 1; 

/* 

2C: 

I NR  L */ 

1128 

4 

DO; 

1129 

5 

DUMMV  = L + 1; 

1130 

5 

S = SIGN; 

1131 

5 

DUMMV  = L + 1; 

1132 

5 

Z = ZERO; 

1133 

5 

L = L + 1; 

1134 

5 

P = PAR I TV; 

1135 

5 

END; 

1136  4 

113  7 5 

1138  5 

1139  5 

1140  5 

1141  5 

1142  5 

1143  5 


/+  2D:  DCR  L */ 

DO; 

DUMMV  = L - 1; 
S « SIGN; 

DUMMV  = L - 1; 
Z * ZERO; 

L = L - 1; 

P = PAR I TV; 
END; 


PAGE 


-250- 


PL7M-80  COMPILER 


Q-80  SIMULATOR 


PAGE  40 


7* 

2E: 

MV I L/  DAT AS  *7 

1144 

4 

L = DATABVTE; 

7* 

2F: 

CMA  *7 

1145 

4 

A = NOT  A; 

7* 

30. 

HALT  *7 

1146 

4 

DO; 

1147 

5 

INTE  = 0FFH; 

1148 

5 

IF  HLT  AND  HOLD 

THEN 

GOTO 

1150 

5 

IF  HLT 

THEN 

GOTO 

1152 

5 

IF  HOLD 

THEN 

GOTO 

1154 

5 

IF  I NT  AND  INTE 

THEN 

GOTO 

1156 

5 

ELSE 

GOTO 

1157 

5 

END; 

7*. 

31: 

LX I SP,  DRTA16  *7 

1158 

4 

SP  = ADDR; 

7* 

32: 

STA  ADDR  *7 

1159 

4 

SDATA  = A; 

7* 

33. 

I NX  SP  *7 

1160 

4 

SP  = SP  + 1; 

7* 

34. 

I NR  M *7 

1161 

4 

DO; 

1162 

5 

DUMMV  = MDATA  + 

1; 

1163 

5 

S = SIGN; 

1164 

5 

DUMMV  = MDATA  + 

1; 

1165 

5 

2 = 2ER0; 

1166 

5 

SDATA  = MDATA  + 

1; 

1167 

5 

P = PAR I TV; 

1168 

5 

END; 

7* 

35. 

OCR  M *7 

1169 

4 

DO; 

1170 

5 

DUMMV  = MDATA  - 

1; 

1171 

5 

S = SIGN; 

1172 

5 

DUMMV  = MDATA  - 

1; 

1173 

5 

Z = ZERO; 

1174 

5 

SDATA  = MDATA  - 

1; 

1175 

5 

P = PAR  I TV; 

1176 

5 

END; 

7* 

36. 

MV I M,  DATAS  *7 

1177 

4 

SDATA  = DATABVTE; 

7* 

37. 

STC  *7 

1178 

4 

CV  = 0FFH; 

IEHHOLD; 
HALT  IE; 
IHHOLD; 

I NT  J AMI; 
HALT  I; 


1179  4 

1180  5 

1181  5 

1183  5 


7*  38:  HALT  *7 
00; 

INTE  = 0FFH; 

IF  HLT  AMD  HOLD  THEM  GOTO  IEHHOLD; 
IF  HLT  THEN  GOTO  HALT IE; 
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1185 

5 

IF  HOLD  THEN 

GOTO 

IHHOLD; 

118? 

5 

IF  I NT  FIND  INTE  THEN 

GOTO 

I NT J AMI; 

1189 

5 

ELSE 

GOTO 

HALT I; 

1190 

5 

END; 

7* 

39 

DFID  SP  *7 

1191 

4 

DO; 

1192 

5 

OFL  = DOFL<HL,  SP>; 

1193 

5 

HL  = HL  + SP; 

1194 

5 

CV  = CFlRRV; 

1195 

5 

END; 

7* 

3R 

LDR  RDDR  *7 

1196 

4 

R = MDRTfl; 

7* 

3B 

DCX  SP  *7 

1197 

4 

SP  = SP  - 1; 

7* 

3C 

I NR  fl  *7 

1198 

4 

DO; 

1199 

5 

DUMMV  = fl  + 1; 

1200 

5 

S = SIGN; 

1201 

5 

DUMMV  = R + 1; 

1202 

5 

2 = ZERO; 

1203 

5 

A = A + 1; 

1204 

5 

P = PAR  I TV; 

1205 

5 

END; 

7* 

3D 

DCR  fl  *7 

1206 

4 

DO; 

120? 

5 

DUMMV  = fl  - 1; 

1208 

5 

S = SIGN; 

1209 

5 

DUMMV  = fl  - 1; 

1210 

5 

2 = ZERO; 

1211 

5 

fl  = fl  - 1; 

1212 

5 

P = PAR  I TV; 

1213 

5 

END; 

7* 

3E 

MV  I flj  DATFI8  *7 

1214 

4 

fl  = DflTflBVTE; 

7* 

3F 

CMC  *7 

1215 

4 

CV  = NOT  CV; 

7* 

40 

MOV  B>  B *7 

1216 

4 

B = B; 

7* 

41 

MOV  Bs  C *7 

1217 

4 

B = C; 

7* 

42 

MOV  B/D  *7 

1218 

4 

B = D; 

7* 

43 

MOV  B,  E *7 

1219 

4 

B *=  E; 

7* 

44 

MOV  B,  H *7 
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1220 

4 

B = H; 

1221 

4 

/*  45 ; MOV  B,  L 

B = L> 

1222 

4 

46:  MOV  B,  M */ 
B = MDATAj 

1223 

4 

47 : MOV  B,  A */ 
B = A > 

1224 

4 

/*  48 : MOV  C,  B */ 
C = B; 

1225 

4 

/*  49:  MOV  C;  C +/ 
C = C; 

1226 

4 

4A : MOV  C,  D */ 

C = D; 

1227 

4 

/*  4B : MOV  C/E  */ 
C = Ei 

1228 

4 

/*  4 C:  MOV  C, H */ 

C = H; 

1229 

4 

/*  40 : MOV  C.  L */ 

C = L; 

1230 

4 

/*  4E : MOV  C, M */ 

C = MDATAi 

1231 

4 

/*  4F  : MOV  C,  A */ 

C = A; 

1232 

4 

/*  50  : MOV  D,  B */ 

0 = B; 

1233 

4 

/*  51:  MOV  Oj C */ 

D = C; 

1234 

4 

/*  52:  MOV  D,  0 */ 

D = D; 

1235 

4 

/*  53:  MOV  D/  E */ 

D = E; 

1236 

4 

/*  54:  MOV  Oj H */ 

D = H; 

1237 

4 

/*  55:  MOV  D,  L */ 

0 = L; 

1238 

4 

/+  56:  MOV  Oj M */ 

0 = MDATA; 

/*  57:  MOV  Di  A +/ 
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1239 

4 

D «=  Oj 

1240 

4 

/* 

58: 

MOV  E,  8 
E = 8; 

*/ 

1241 

4 

/* 

59: 

MOV  E>  C 
E = Cj 

*/ 

1242 

4 

/* 

50 : 

MOV  E,  D 
E = Dj 

*/ 

1243 

4 

5B: 

MOV  E*  E 
E = Ej 

1244 

4 

o'* 

5C : 

MOV  E,  H 
E = H; 

1245 

4 

/* 

5D  ■ 

MOV  Ej  L 
E = Lj 

1246 

4 

/* 

5E : 

MOV  E,  M 

E = MDOTOj 

124? 

4 

/* 

5F: 

MOV  Ej  0 
E = 0; 

*/ 

1248 

4 

/* 

60: 

MOV  Hj  B 
H = Bj 

*/ 

1249 

4 

/* 

61: 

MOV  H»  C 
H = Cj 

1250 

4 

/* 

62: 

MOV  H,  D 
H = Dj 

*/ 

1251 

4 

/* 

63: 

MOV  H,  E 
H «=  Ej 

*/ 

1252 

4 

/* 

64: 

MOV  H,  H 
H = Hj 

*/ 

1253 

4 

/* 

65: 

MOV  H,  L 
H = Lj 

*/ 

1254 

4 

/* 

66: 

MOV  H,  M */ 
H = MDOTOj 

1255 

4 

/* 

67: 

MOV  H,  0 
H *=  Oj 

*/ 

1256 

4 

/* 

68: 

MOV  L,  B 
L » Bj 

*/ 

125? 

4 

/* 

69: 

MOV  L,  C 
L = Cj 

*/ 

/* 

60: 

MOV  L, D 

*/ 

PL7M- 
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4 

L = D; 

1258 

4 

7* 

6B:  MOV  L,  E *7 

L * E; 

1260 

4 

7* 

6C : MOV  Li  H *7 

L = H; 

1261 

4 

7* 

6D : MOV  L,  L «7 

L = L; 

1262 

4 

7* 

6E : MOV  L>  M *7 

L = MDATR; 

1263 

4 

7* 

6F:  MOV  Li  A *7 

L = A; 

1264 

4 

7* 

70 . MOV  M,  B *7 

SDATA  = 8; 

1265 

4 

7* 

71 : MOV  Mi  C *7 

SDATA  - C; 

1266 

4 

7* 

72 : MOV  Mi  D *7 

SDATA  = D; 

126? 

4 

7* 

73 : MOV  Mi  E *7 

SDATA  = E; 

1268 

4 

7* 

74:  MOV  MiH  *7 

SDATA  = H; 

1269 

4 

7* 

75:  MOV  MiL  *7 

SDATA  = L; 

12?0 

4 

7* 

76:  HALT  *7 

DO; 

1271 

5 

INTE  = 0FFH; 

1272 

5 

IF  HLT  AND  HOLD 

1274 

5 

IF  HLT 

1276 

5 

IF  HOLD 

1278 

5 

IF  INT  AND  INTE 

1280 

1281 

5 

5 

END; 

1282 

4 

7* 

77:  MOV  Mi  A *7 

SDATA  = A; 

1283 

4 

7* 

78:  MOV  AiB  *7 

A * B; 

1284 

4 

7* 

79:  MOV  A,  C *7 

A * C; 

1285 

4 

7* 

?A:  MOV  AiD  *7 

A = D; 
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THEN  GOTO  HALT  IE; 
THEN  GOTO  IHHOLD; 
THEN  GOTO  INTJAM1. 
ELSE  GOTO  HALT I; 
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/* 

7 B: 

MOV  A,  E *7 

1286 

4 

A *=  E; 

7* 

7C: 

MOV  A,  H *7 

1287 

4 

A = H ; 

7* 

70: 

MOV  A,  L *7 

1288 

4 

A - L; 

7* 

7E : 

MOV  A,  M *7 

1289 

4 

A ■ MDATAj 

7* 

7F : 

MOV  A,  A *7 

1290 

4 

A = A; 

7* 

80: 

ADD  B *7 

1291 

4 

DO  ; 

1292 

5 

CALL  OFLCV<A>  B, 

1293 

5 

DUMMV  = A B; 

1294 

5 

S = SIGN; 

1295 

5 

DUMMV  = A + B; 

1296 

5 

2 = ZERO; 

1297 

5 

A = A + B; 

1298 

5 

P ■=  PAR  I TV; 

1299 

5 

END; 

7* 

81: 

ADD  C *7 

1300 

4 

DO; 

1301 

5 

CALL  OFLCV<A,  C, 

1302 

5 

DUMMV  = A + C; 

1303 

5 

S = SIGN; 

1304 

5 

DUMMV  = A + C; 

1305 

5 

2 = ZERO; 

1306 

5 

A = A + C; 

1307 

5 

P = PAR  I TV; 

1308 

5 

END; 

7* 

82: 

ADD  D *7 

1309 

4 

DO; 

1310 

5 

CALL  OFLCV<A,  0, 

1311 

5 

DUMMV  = A + D; 

1312 

5 

S = SIGN; 

1313 

5 

DUMMV  = A + D; 

1314 

5 

Z = ZERO; 

1315 

5 

A = A + D; 

1316 

5 

P = PARI  TV; 

1317 

5 

END; 

7* 

83: 

ADD  E *7 

1318 

4 

DO; 

1319 

5 

CALL  OFLCV<A,  E, 

1320 

5 

DUMMV  = A + E; 

1321 

5 

S = SIGN; 

1322 

5 

DUMMV  = A + E; 

1323 

5 

Z = ZERO; 

1324 

5 

A = A + Ei 

1325 

5 

P = PARI  TV; 
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1326 

5 

END; 

7* 

4- 

CO 

ADO  H *7 

132? 

4 

DO; 

1328 

5 

CALL  OFLCVCA-  H,  0,  ADD>; 

1329 

5 

DUMMY  = A + H; 

1330 

5 

S = SIGN; 

1331 

5 

DUMMY  = A + H; 

1332 

5 

Z = ZERO; 

1333 

5 

A = A + H; 

1334 

5 

P = PARITY; 

1335 

5 

END; 

7* 

85: 

ADD  L *7 

1336 

4 

DO; 

1337 

5 

CALL  OFLCVCA,  L;  0,  ADD); 

1338 

5 

DUMMY  * A + L; 

1339 

5 

S = SIGN; 

1340 

5 

DUMMY  = A + L; 

1341 

5 

Z = ZERO; 

1342 

5 

A = A + L; 

1343 

5 

P = PARITY; 

1344 

5 

END; 

7* 

86: 

ADD  M *7 

1345 

4 

DO; 

1346 

5 

CALL  OFLCYCR,  MDATA,  0/  RDD>; 

134? 

5 

DUMMY  = A + MDATA; 

1348 

5 

S = SIGN; 

1349 

5 

DUMMY  = A + MDATA; 

1350 

5 

Z = ZERO; 

1351 

5 

A = A + MDATA; 

1352 

5 

P = PARITY; 

1353 

5 

END; 

7* 

87: 

ADD  A *7 

1354 

4 

DO; 

1355 

5 

CALL  OFLCVCA,  A,  0, ADD); 

1356 

5 

DUMMY  = A + A; 

1357 

5 

S = SIGN; 

1358 

5 

DUMMY  = A + A; 

1359 

5 

Z = ZERO; 

1360 

5 

A = A + A; 

1361 

5 

P = PARITY; 

1362 

5 

END; 

7* 

88: 

ADC  B *7 

1363 

4 

DO; 

1364 

5 

CALL  OFLCVCA,  B,  CY,  ADD); 

1365 

5 

DUMMY  = A + B + <CV  AND  01H); 

1366 

5 

S = SIGN; 

136? 

5 

DUMMY  = A + B + <CV  AND  01H); 

1368 

5 

Z = ZERO; 

1369 

5 

A = A + B + <CV  AND  01H); 

1370 

5 

P = PARITY; 

1371 

5 

END; 
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1372  4 

1373  5 

1374  5 

1375  5 

1376  5 

1377  5 

1378  5 

1379  5 

1380  5 


89:  ADC  C 
DO; 

CALL  OFLCV<A,  C,  CV,  ADD); 

DUMMV  = A + C ♦ <CY  AND  01H 
S ■ SIGN; 

DUMMY  = A + C ♦ <CV  AND  01H) 
Z = ZERO; 

A *=  A + C + <CV  AND  01H); 

P - PARITY; 

END; 


1381  4 

1382  5 

1383  5 

1384  5 

1385  5 

1386  5 

1387  5 

1388  5 

1389  5 


/*  8A : ADC  D */ 

DO; 

CALL  OFLCV<A,  D,  CV,  ADD); 

DUMMV  = A + D + <CV  AND  01H); 
S = SIGN; 

DUMMY  = A + D + <CY  AND  01H); 
Z *>  ZERO; 

A = A ♦ D + <CV  AND  01H); 

P = PARITY; 

END; 


/+ 

SB: 

ADC  E */ 

1390 

4 

DO; 

1391 

5 

CALL  OFLCVCA,  E,  CV,  ADD); 

1392 

5 

DUMMY  = A + 

E + <CY  AND  01H); 

1393 

5 

S = SIGN; 

1394 

5 

DUMMY  = A + 

E <CY  AND  01H); 

1395 

5 

Z = ZERO; 

1396 

5 

A = A + E + 

<CY  AND  01H); 

1397 

5 

P = PARITY; 

1398 

5 

END; 

/* 

CO 

O 

ADC  H */ 

1399 

4 

DO; 

1400 

5 

CALL  OFLCVCA,  H,  CV,  ADD); 

1401 

5 

DUMMV  = A + 

H + <CY  AND  01H); 

1402 

5 

S = SIGN; 

1403 

5 

DUMMY  = A + 

H + <CY  AND  01H» 

1404 

5 

Z = ZERO; 

1405 

5 

A = A + H + 

<CV  AND  01H); 

1406 

5 

P = PARITY; 

1407 

5 

END; 

/+ 

8D: 

ADC  L */ 

1408 

4 

DO; 

1409 

5 

CALL  OFLCY<A,  L,  CV,  ADD); 

1410 

5 

DUMMY  = A + 

L + <CV  AND  01H); 

1411 

5 

S = SIGN; 

1412 

5 

DUMMY  = A + 

L + <CY  AND  01H); 

1413 

5 

Z *=  ZERO; 

1414 

5 

A = A + L + 

<CV  AND  01H); 

1415 

5 

P = PARITY; 

1416 

5 

END; 

/+ 

8E : 

ADC  M */ 

1417 

4 

DO; 
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1418 

5 

CALL  OFLCVCA,  MDATA,  CV,  ADD); 

1419 

5 

DUMMV  = A + MDATA  + <CV 

AND  01H) 

1420 

5 

S = SIGN; 

1421 

5 

DUMMV  = A + MDATA  + <CV 

AND  01H) 

1422 

5 

Z = ZERO; 

1423 

5 

A = A + MDATA  + <CY  AND 

01H); 

1424 

5 

P = PAR I TV; 

1425 

5 

END; 

/* 

8F : 

ADC  A */ 

1426 

4 

DO; 

142? 

5 

CALL  OFLCV<A,  A-  CV,  ADD); 

1428 

5 

DUMMV  = A + A + <CV  AND 

01H); 

1429 

5 

S = SIGN; 

1430 

5 

DUMMV  = A + A + <CV  AND 

01H); 

1431 

5 

Z = ZERO; 

1432 

5 

A = A A + <CV  AND  01H) 

1 i 

1433 

5 

P «=  PARITY; 

1434 

5 

END; 

/* 

90: 

SUB  B 

1435 

4 

DO; 

1436 

5 

CALL  OFLCV<A,  B,  0,  SUB); 

143? 

5 

DUMMV  = A - B; 

1438 

5 

S = SIGN; 

1439 

5 

DUMMV  = A - B; 

1440 

5 

Z = ZERO; 

1441 

5 

A = A - B; 

1442 

5 

P *=  PARITY; 

1443 

5 

END; 

91: 

SUB  C */ 

1444 

4 

DO; 

1445 

5 

CALL  OFLCV<A,  C,  0,  SUB); 

1446 

5 

DUMMV  = A - C; 

144? 

5 

S = SIGN; 

1448 

5 

DUMMV  = A - C; 

1449 

5 

Z = ZERO; 

1450 

5 

A = A - C; 

1451 

5 

P = PARITY; 

1452 

5 

END; 

/* 

92. 

SUB  D */ 

1453 

4 

DO; 

1454 

5 

CALL  OFLCVCA,  D,  0,  SUB); 

1455 

5 

DUMMV  «=  A - D; 

1456 

5 

S «=  SIGN; 

145? 

5 

DUMMV  = A - D; 

1453 

5 

Z * ZERO; 

1459 

5 

A = A - D; 

1460 

5 

P = PARITY; 

1461 

5 

END; 

/* 

93: 

SUB  E */ 

1462 

4 

DO; 

1463 

5 

CALL  OFLCV<A,  E,  0,  SUB); 

1464 

5 

DUMMV  = A - E; 
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1466 

1467 

1468 

1469 

1470 


1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 


1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 


1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 


1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 


1507 

1508 

1509 

1510 

1511 
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5 

5 

5 

5 

5 

5 


S = SIGN; 

DUMMV  = A - E; 
2 = 2ER0; 

A = A - E; 

P = PARITY; 
END; 


4 

5 
5 
5 
5 
5 
5 
5 
5 


4 

5 
5 
5 
5 
5 
5 
5 
5 


/*  94.  SUB  H */ 

DO; 

CALL  OFLCY<A,  H,  0,  SUB); 
DUMMV  = A - H; 

S = SIGN; 

DUMMV  = A - H; 

Z = ZERO; 

A = A - H; 

P = PARITY; 

END; 

/*  95:  SUB  L */ 

DO; 

CALL  OFLCVCA,  L,  0-  SUB); 
DUMMV  = A - L; 

S = SIGN; 

DUMMV  = A - L; 

Z = ZERO; 

A = A - L; 

P = PARITY; 

END; 


4 

5 
5 
5 
5 
5 
5 
5 
5 


/*  96:  SUB  M */ 

DO; 

CALL  OFLCV<A,  MDATA,  0,  SUB); 
DUMMV  = A - MDATA; 

S - SIGN; 

DUMMV  = A - MDATA; 

Z = ZERO; 

A = A - MDATA; 

P - PARITY; 

END; 


4 

5 
5 
5 
5 
5 
5 
5 
5 


/*  97:  SUB  A */ 

DO; 

CALL  OFLCV<A,  A,  0,  SUB); 
DUMMV  = A - A; 

S = SIGN; 

DUMMV  = A - A; 

Z * ZERO; 

A « A - A; 

P *=  PAR  I TV; 

END; 


/*  98:  SBB  B */ 

4 DO; 

5 CALL  OFLCV<A<  B<  CV<  SUB); 

5 DUMMV  = A - B - <CY  AND  01H); 

5 S = SIGN; 

5 DUMMV  *=  A - B - <CV  AND  01H); 
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1512 

5 

2 = 2ER0; 

1513 

5 

A = A - 8 - <CY  AND  01H); 

1514 

5 

P = PARITY; 

1515 

5 

END; 

/* 

99: 

see  c */ 

1516 

4 

DO; 

151? 

5 

CALL  OFLCVCA,  C,  CY,  SUB); 

1518 

5 

DUMMY  = A - C - CCY  AND  01H>; 

1518 

5 

S = SIGN; 

1520 

5 

DUMMY  = A - C - CCY  AND  01H); 

1521 

5 

2 = 2ER0; 

1522 

5 

A = A - C - <CY  AND  OlH); 

1523 

5 

P = PARITY; 

1524 

5 

END; 

/* 

9A : 

SBB  D */ 

1525 

4 

DO; 

1526 

5 

CALL  OFLCVCA,  D,  CV,  SUB); 

152? 

5 

DUMMY  = A - D - CCY  AND  01H); 

1528 

5 

S = SIGN; 

1529 

5 

DUMMY  = A - D - CCY  AND  01H); 

1530 

5 

2 = 2ER0; 

1531 

5 

A = A - D - <CV  AND  01H); 

1532 

5 

P = PARITY; 

1533 

5 

END; 

/* 

9E: 

SBB  E */ 

1534 

4 

DO; 

1535 

5 

CALL  OFLCVCA,  E,  CV,  SUB); 

1536 

5 

DUMMY  = A - E - CCY  AND  01H); 

153? 

5 

S = SIGN; 

1538 

5 

DUMMY  = A - E - CCY  AND  01H); 

1539 

5 

2 = 2ER0; 

1540 

5 

A = A - E - CCY  AND  01H); 

1541 

5 

P = PARITY; 

1542 

5 

END; 

/* 

9C : 

SBB  H */ 

1543 

4 

DO; 

1544 

5 

CALL  OFLCVCA,  H,  CV,  SUB); 

1545 

5 

DUMMY  = A - H - CCY  AND  01H); 

1546 

5 

S = SIGN; 

154? 

5 

DUMMY  = A - H - CCY  AND  01H); 

1548 

5 

2 = 2ER0; 

1549 

5 

A = A - H - CCY  AND  01H); 

1550 

5 

P = PARITY; 

1551 

5 

END; 

/* 

9D: 

SBB  L */ 

1552 

4 

DO; 

1553 

5 

CALL  OFLCVCA,  L,  CY,  SUB); 

1554 

5 

DUMMY  = A - L - CCY  AND  01H); 

1555 

5 

S = SIGN; 

1556 

5 

DUMMY  = A - L - CCY  AND  01H); 

155? 

5 

2 = 2ER0; 

1558 

5 

A = A - L - CCY  AND  01H); 
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1559 

5 

P = PARITY; 

1560 

5 

END> 

7* 

9E : 

see  m *7 

1561 

4 

DO; 

1562 

5 

CALL  OFLCYCfl,  MDATR, CY. SUB); 

1563 

5 

DUMMV  = R - MDflTfi  - <CV  AND  01H); 

1564 

5 

S = SIGN; 

1565 

5 

DUMMV  = fl  - MDflTfi  - <CV  AND  01H); 

1566 

5 

Z = ZERO; 

1567 

5 

fl  = fl  - MDflTfl  - <CY  AND  01H); 

1568 

5 

P = PARITY; 

1569 

5 

END; 

7* 

9F : 

SBB  fl  *7 

1570 

4 

DO; 

1571 

5 

CALL  OFLCY<fl.  fl.  CY.  SUB); 

1572 

5 

DUMMV  = R - fl  - <CV  AND  01H); 

1573 

5 

S = SIGN; 

1574 

5 

DUMMY  = fl  - fl  - <CV  AND  01H>; 

1575 

5 

Z = ZERO; 

1576 

5 

fl  « fl  - R - <CV  AND  01H); 

1577 

5 

P = PARITY; 

1578 

5 

END; 

7* 

3 

<3 

flNR  B *7 

1579 

4 

DO; 

1580 

5 

DUMMY  = fl  AND  B; 

1581 

5 

S = SIGN; 

1582 

5 

DUMMV  = fl  AND  B; 

1583 

5 

Z = ZERO; 

1584 

5 

fl  = fl  AND  B; 

1585 

5 

P = PARITY; 

1586 

5 

CY  = 0; 

1587 

5 

END; 

7* 

fll: 

flNfl  C *7 

1588 

4 

DO; 

1589 

5 

DUMMV  = fl  AND  C; 

1590 

5 

S = SIGN; 

1591 

5 

DUMMV  = fl  AND  C; 

1592 

5 

Z = ZERO; 

1593 

5 

fl  = fl  AND  C; 

1594 

5 

P = PARITY; 

1595 

5 

CV  *=  0; 

1596 

5 

END; 

/* 

R2: 

flNfl  D *7 

1597 

4 

DO; 

1598 

5 

DUMMY  = fl  AND  D; 

1599 

5 

S « SIGN; 

1608 

5 

DUMMV  = fl  AND  D; 

1601 

5 

Z = ZERO; 

1602 

5 

fl  = fl  AND  D; 

1603 

5 

P = PARITY; 

1604 

5 

CY  = 0, 

1605 

5 

END;  .262- 
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7* 

A3: 

ANA  E *7 

1606 

4 

DO; 

1607 

5 

DUMMV  = A AND 

E; 

1608 

5 

S = SIGN; 

1609 

5 

DUMMV  = A AND 

E; 

1610 

5 

2 = 2ER0; 

1611 

5 

A = A AND  E.: 

1612 

5 

P = PAR  I TV; 

1613 

5 

CV  = 0; 

1614 

5 

END; 

7* 

A4 : 

ANA  H *7 

1615 

4 

DO; 

1616 

5 

DUMMV  = A AND 

H; 

1617 

5 

S = SIGN; 

1618 

5 

DUMMV  = A AND 

H; 

1619 

5 

Z = ZERO; 

1620 

5 

A = A AND  H; 

1621 

5 

P = FAR  I TV; 

1622 

5 

CV  = 0; 

1623 

5 

END; 

/* 

A5  : 

ANA  L *7 

1624 

4 

DO; 

1625 

5 

DUMMV  = A AND 

L; 

1626 

5 

S = SIGN; 

1627 

5 

DUMMV  = A AND 

L; 

1628 

5 

Z = ZERO; 

1629 

5 

A = A AND  L; 

1630 

5 

P = PARITY; 

1631 

5 

CV  = 0; 

1632 

5 

END; 

7* 

A6 : 

ANA  M *7 

1633 

4 

DO; 

1634 

5 

DUMMV  = A AND 

MDATA; 

1635 

5 

S = SIGN; 

1636 

cr 

■*/ 

DUMMV  = A AND 

MDATA; 

1637 

5 

Z = ZERO; 

1638 

5 

A = A AND  MDATA; 

1639 

5 

P = PARITY; 

1640 

5 

CV  = 0; 

1641 

5 

END; 

7* 

A7 : 

ANA  A *7 

1642 

4 

DO; 

1643 

5 

DUMMV  = A AND 

A; 

1644 

5 

S = SIGN; 

1645 

5 

DUMMV  = A AND 

A; 

1646 

5 

Z = ZERO; 

1647 

5 

A = A AND  A; 

1648 

5 

P = PARITY; 

1649 

5 

CV  *=  0; 

1650 

5 

END; 

7*  A8:  XRA  B *7 
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1651 

4 

DO; 

1652 

5 

DUMMS*  = A XOR 

B; 

1653 

5 

S = SIGN; 

1654 

5 

DUMMV  = A XOR 

B; 

1655 

5 

Z = ZERO; 

1656 

5 

A = A XOR  B; 

1657 

5 

P = PAR I TV; 

1658 

5 

CV  = 0; 

1659 

5 

END; 

/* 

A9 : 

XRA  C */ 

1660 

4 

DO; 

1661 

5 

DUMMV  = A XOR 

C; 

1662 

5 

S = SIGN; 

1663 

5 

DUMMV  = A XOR 

C; 

1664 

5 

Z = ZERO; 

1665 

5 

A = A XOR  C; 

1666 

5 

P = PAR  I TV; 

1667 

5 

CV  = 0; 

1668 

5 

END; 

/* 

AA: 

XRA  D */ 

1669 

4 

DO; 

1670 

5 

DUMMV  = A XOR 

D; 

1671 

5 

S = SIGN; 

1672 

5 

DUMMV  = A XOR 

D; 

1673 

5 

Z = ZERO; 

1674 

5 

A = A XOR  D; 

1675 

5 

P = PAR  I TV; 

1676 

5 

CV  = 0; 

1677 

5 

END, 

AB. 

XRA  E */ 

1678 

4 

DO; 

1679 

5 

DUMMV  = A XOR 

E; 

1680 

5 

S = SIGN; 

1681 

5 

DUMMV  = A XOR 

E; 

1682 

5 

Z = ZERO; 

1683 

5 

A = A XOR  E; 

1684 

5 

P = PAR  I TV; 

1685 

5 

CV  = 0; 

1686 

5 

END; 

AC: 

XRA  H 

1687 

4 

DO; 

1688 

5 

DUMMV  = A XOR 

H; 

1689 

5 

S = SIGN; 

1690 

5 

DUMMV  = A XOR 

H; 

1691 

5 

Z = ZERO; 

1692 

5 

A = A XOR  H; 

1693 

5 

P = PAR I TV; 

1694 

5 

CV  = 0; 

1695 

5 

END; 

AD 

XRA  L */ 

1696 

4 

DO; 

1697 

5 

DUMMV  = A XOR 

L; 
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1698  5 

1699  5 

1700  5 

1701  5 

1702  5 

1703  5 

1704  5 


S = SIGN; 

DUMMV  = fl  XOR  L; 
Z = ZERO; 

A = fl  XOR  L; 

P = PARITY; 

CV  = 0; 

END; 


X*  RE.  XRR  M *X 
DO; 

DUMMY  = fl  XOR  MDfiTft; 
S = SIGN; 

DUMMV  = fl  XOR  MDflTfl; 
Z = ZERO; 

R = fl  XOR  MDflTfl; 

P = PARITY; 

CY  = O; 

END; 


1714  4 

1715  5 

1716  5 

1717  5 

1718  5 

1719  5 

1720  5 

1721  5 

1722  5 


X*  flF : XRfl  fl  *X 
DO; 

DUMMY  = fl  XOR  R; 
S = SIGN; 

DUMMV  = fl  XOR  ft; 
Z = ZERO; 
fl  = fl  XOR  fl; 

P = PAR  I TV; 

CV  = 0; 

END; 


X*  B0.  ORfl  2 *X 
DO; 

DUMMV  = fl  OR  B; 
S = SIGN; 

DUMMV  = fl  OR  B; 
Z = ZERO; 
fl  = fl  OR  B; 

P = PARITY; 

CV  = 0; 

END; 


X*  Bl:  ORfl  C *X 
DO; 

DUMMV  = fl  OR  C; 
S = SIGN; 

DUMMV  = fl  OR  C; 
Z = ZERO; 
fl  = ft  OR  C; 

P = PAR  I TV; 

CV  = 0, 

END; 


1741  4 

1742  5 

1743  5 

1744  5 


X*  B2:  ORfl  D *X 
DO; 

DUMMV  = fl  OR  D; 
S = SIGN; 

DUMMV  = fl  OR  D; 
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1745 

5 

Z = ZERO; 

1746 

5 

A = A OR  D; 

1747 

5 

P = PAR  I TV; 

1748 

5 

CV  = 0; 

1749 

5 

END; 

7* 

83: 

ORA  E *7 

1750 

4 

DO; 

1751 

5 

DUMMV  = A OR 

E; 

1752 

5 

S = SIGN; 

1753 

5 

DUMMV  = A OR 

E; 

1754 

5 

Z = ZERO; 

1755 

5 

A = A OR  E; 

1756 

5 

P = PAR I TV; 

1757 

5 

CV  = 0; 

1758 

5 

END; 

/* 

B4 : 

ORA  H *7 

1759 

4 

DO; 

1760 

5 

DUMMV  = A OR 

H; 

1761 

5 

S = SIGN; 

1762 

5 

DUMMV  = A OR 

H; 

1763 

5 

Z = ZERO; 

1764 

5 

A = A OR  H; 

1765 

5 

P = PAR  I TV; 

1766 

5 

CV  = 0; 

1767 

5 

END; 

7* 

85: 

ORA  L *7 

1768 

4 

DO; 

1769 

5 

DUMMV  = ft  OR 

L; 

1770 

5 

S = SIGN; 

1771 

5 

DUMMV  = A OR 

L; 

1772 

5 

Z = ZERO; 

1773 

5 

A = A OR  L; 

1774 

5 

P = PAR I TV; 

1775 

5 

CV  = 0; 

1776 

5 

END; 

7* 

86: 

ORA  M *7 

1777 

4 

DO; 

1778 

5 

DUMMV  = A OR 

MDATA; 

1779 

5 

S = SIGN; 

1780 

5 

DUMMV  = ft  OR 

MDATA; 

1781 

5 

Z = ZERO; 

1782 

5 

A = A OR  MDATA; 

1783 

5 

P = PAR  I TV; 

1784 

5 

CV  = 0; 

1785 

5 

END; 

7* 

87: 

ORA  A *7 

1786 

4 

DO; 

1787 

5 

DUMMV  = A OR 

A; 

1788 

5 

S = SIGN; 

1789 

5 

DUMMV  = A OR 

A; 

1790 

5 

Z = ZERO; 

1791 

5 

A = A OR  A; 
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1792 

5 

P = PARITY; 

1793 

5 

CY  = 0; 

1794 

5 

END; 

/* 

B8: 

CMP  B 

1795 

4 

DO; 

1796 

5 

CALL  OFLCVCA,  B. 

1797 

5 

DUMMY  = A - B; 

1798 

5 

S = SIGN; 

1799 

5 

DUMMY  = A - B; 

1800 

5 

2 = 2ERO; 

1801 

5 

DUMMY  = A - B; 

1802 

5 

P = PARITY; 

1803 

5 

END; 

/* 

B9 : 

CMP  C */ 

1804 

4 

DO; 

1805 

5 

CALL  OFLCV<A,  C. 

1886 

5 

DUMMY  = A - C; 

1807 

5 

S = SIGN; 

1808 

5 

DUMMY  = A - C; 

1809 

5 

2 = 2ER0; 

1810 

5 

DUMMY  = A - C; 

1811 

5 

P = PARITY; 

1812 

5 

END; 

/* 

BA: 

CMP  D */ 

1813 

4 

DO; 

1814 

5 

CALL  OFLCY<A,  D. 

1815 

5 

DUMMY  = A - D; 

1816 

5 

S = SIGN; 

1817 

5 

DUMMY  = A - D; 

1818 

5 

2 = 2ER0; 

1819 

5 

DUMMY  = A - D; 

1820 

5 

P = PARITY; 

1821 

5 

END; 

/* 

BB: 

CMP  E */ 

1822 

4 

DO; 

1823 

5 

CALL  OFLCYCA,  E, 

1824 

5 

DUMMY  = A - E; 

1825 

5 

S = SIGN; 

1826 

5 

DUMMY  = A - E; 

1827 

5 

2 = 2ER0; 

1828 

5 

DUMMY  = A - E; 

1829 

5 

P = PARITY; 

1830 

5 

END; 

/ + 

BC: 

CMP  H */ 

1831 

4 

DO; 

1832 

5 

CALL  OFLCVCA,  H; 

1833 

5 

DUMMY  = A - H; 

1834 

5 

S = SIGN; 

less 

cr 

DUMMY  = A - H; 

1836 

5 

2 = 2ER0- 

1837 

5 

DUMMY  = A - H; 

1838 

5 

P = PARITY; 

•267- 


i 


PL/M-80  COMPILER 


Q-80  SIMULATOR 


PAGE  5? 


1839 

5 

END; 

/* 

BD: 

CMP  L */ 

1840 

4 

DO; 

1841 

5 

CALL  OFLCYCA,  L,  O,  SUB>; 

1842 

5 

DUMMY  = A - L; 

1843 

5 

S = SIGN; 

1844 

5 

DUMMY  = A - L; 

1845 

5 

Z = ZERO; 

1846 

5 

DUMMY  = A - L; 

1847 

5 

P = PARITY; 

1848 

5 

END; 

/* 

BE: 

CMP  M */ 

1849 

4 

DO; 

1850 

5 

CALL  OFLCV<  A.  MDATA,  O,  SUB>; 

1851 

5 

DUMMY  = A - MDATA; 

1852 

5 

S = SIGN; 

1853 

5 

DUMMY  = A - MDATA; 

1854 

5 

Z = ZERO; 

1855 

5 

DUMMY  = A - MDATA; 

1856 

5 

P = PARITY; 

1857 

5 

END; 

/* 

BF: 

CMP  A */ 

1858 

4 

DO; 

1859 

5 

CALL  OFLCV<A,  A,  O,  SUB>; 

I860 

5 

DUMMY  = A - A; 

1861 

5 

S = SIGN; 

1862 

5 

DUMMY  = A - A; 

1863 

er 

Z = ZERO; 

1864 

5 

DUMMY  = A - A; 

1865 

5 

P = PARITY; 

1866 

5 

END; 

/* 

C0 

RNZ  */ 

1867 

4 

DO; 

1868 

5 

IF  Z = 0 THEN  PC  = MDATA2; 

1870 

5 

END; 

/+ 

Cl: 

POP  B */ 

1871 

4 

BC  = MDATA2; 

/+ 

C2 : 

JNZ  ADDR  */ 

1872 

4 

DO; 

1873 

5 

IF  Z = 0 THEN  PC  = ADDR; 

1875 

5 

END; 

/* 

C3 : 

JMP  ADDR 

1876 

4 

PC  = ADDR; 

/* 

C4: 

CNZ  ADDR  +/ 

1877 

4 

DO; 

1878 

5 

IF  Z = 0 THEN  DO; 

1880 

6 

SDATA2  = PC; 

1881 

6 

PC  = ADDR; 

1882 

6 

END; 
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5 

ELSE  DO; 

18C4 

6 

IF  HLT  RND  HOLD  THEM 

GOTO 

HHOLD; 

1886 

6 

IF  HLT  THEM 

GOTO 

HfiLTE; 

18S8 

6 

IF  HOLD  THEM 

GOTO 

HOLD; 

189D 

6 

IF  IMT  AMD  I MTE  THEN 

GOTO 

I NT J AMI; 

1892 

6 

ELSE 

GOTO 

IFCH1; 

1893 

6 

END; 

1894 

5 

EMD; 

/* 

C5 : 

PUSH  8 */ 

1895 

4 

SDRTR2  = BC; 

C6 : 

RDI  DRTRS  */ 

1896 

4 

DO; 

1897 

5 

CALL  OFLCY<fi,  DATABVTE,  8,  ADD > ; 

1898 

5 

DUMMY  = A + DATABVTE; 

1899 

5 

S = SIGN; 

1900 

5 

DUMMY  = R + DRTABYTE; 

1901 

5 

2 = ZERO; 

1902 

5 

R = fl  + DATABVTE; 

1903 

5 

P = PARITY; 

1904 

5 

EMD; 

/* 

C7 : 

RST  0 */ 

1905 

4 

DO; 

1906 

5 

SDRTR2  = PC; 

1907 

5 

PC  = 0; 

1908 

5 

EMD; 

/* 

C8 : 

RZ  */ 

1909 

4 

DO; 

1910 

5 

IF  Z O 0 THEM  PC  = MDRTR2; 

1912 

5 

END; 

/* 

C9 : 

RET  */ 

1913 

4 

PC  = MDRTR2; 

CR: 

JZ  RDDR  */ 

1914 

4 

DO; 

1915 

5 

IF  Z <>  0 THEN  PC  = RDDR; 

1917 

5 

END; 

CB: 

HALT  */ 

1918 

4 

DO; 

1919 

5 

INTE  = 0FFH; 

1920 

5 

IF  HLT  RMD  HOLD  THEN  GOTO  IEHHOLD; 

1922 

5 

IF  HLT  THEN  GOTO  HALT IE; 

1924 

5 

IF  HOLD  THEN  GOTO  IHHOLD; 

1926 

5 

IF  I NT  AND  INTE  THEN  GOTO  I NT J AMI; 

1928 

5 

ELSE  GOTO  HALT I; 

1929 

5 

END; 

o 

o 

CZ  RDDR  */ 

1930 

4 

DO; 

1931 

5 

IF  2 O 0 THEN  DO; 

1933 

6 

SDATR2  = PC; 

1934 

6 

PC  = RDDR; 
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1935  6 

1936  5 

193?  6 

1939  6 

1941  6 

1943  6 

1945  6 

1946  6 

194?  5 


END; 


END; 

ELSE  DO; 

HOLD  THEN  GOTO  HHQLD; 
THEN  GOTO  HRLTE; 
THEN  GOTO  HOLD; 
INTE  THEN  GOTO  INTJAM1; 
ELSE  GOTO  IFCH1; 

END; 


IF  HLT  AND 
IF  HLT 
IF  HOLD 
IF  INT  AND 


1948  4 

1949  5 

1950  5 

1951  5 


/*  CD:  CALL  ADDR  */ 
DO; 

SDATA2  = PC; 
PC  = ADDR; 
END; 


1952  4 

1953  5 

1954  5 

1955  5 

1956  5 

195?  5 

1958  5 

1959  5 

1960  5 


/*  CE:  AC I DATRS  */ 

DO; 

CALL  OFLCY<A,  DATABYTE,  CY,  ADD); 

DUMMY  = A + DATABYTE  + <CY  AND  01H); 
S = SIGN; 

DUMMY  = A + DATABYTE  + <CY  AND  01H); 
2 = ZERO; 

A = A + DATABYTE  + <CV  AND  01H); 

P = PARITY; 

END; 


1961  4 

1962  5 

1963  5 

1964  5 


/*  CF:  RST  1 */ 

DO; 

SDATA2  = PC; 
PC  = 8; 

END; 


1965  4 

1966  5 

1968  5 


/*  D0:  RNC  */ 

DO; 

IF  CY  = 0 THEN  PC  = MDATA2; 
END; 


1969  4 


/*  Dl:  POP  D +/ 

DE  = MDATA2; 


19?0  4 

19?1  5 

19?3  5 


/*  D2:  JNC  ADDR  */ 

DO; 

IF  CY  = 0 THEN  PC  = ADDR; 
END; 


19?4  4 


/*  D3 : OUT  PORT  */ 
SDATA  = A; 


1975  4 

1976  5 

1978  6 

1979  6 

1980  6 

1981  5 

1982  6 


/*  D4 : CNC  ADDR  */ 

DO; 

IF  CY  = 0 THEN  DO; 

SDATA2  = PC; 

PC  = ADDR; 

END; 

ELSE  DO; 

IF  HLT  AND  HOLD  THEN  GOTO  HHOLD; 
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1984 

6 

IF  HLT 

THEN 

GOTO 

HALTE; 

1986 

6 

IF  HOLD 

THEN 

GOTO 

HOLD; 

1988 

6 

IF  I NT  AND 

INTE  THEN 

GOTO 

INTJAM1; 

1990 

6 

ELSE 

GOTO 

IFCH1; 

1991 

6 

END; 

1992  5 END; 


7+ 

D5 : 

PUSH  D *7 

1993 

4 

SDATA2  = DE; 

7* 

D6: 

SUI  DAT AS  *7 

1994 

4 

DO; 

1995 

5 

CALL  OFLCV<A,  DATABYTE,  0,  SUB>; 

1996 

5 

DUMMY  = A - DATABYTE; 

199? 

5 

S = SIGN; 

1998 

5 

DUMMY  = A - DATABYTE; 

1999 

5 

2 = ZERO; 

2000 

5 

A = A - DATABYTE; 

2001 

5 

P = PARITY; 

2002 

5 

END; 

7* 

D7  : 

RST  2 *7 

2003 

4 

DO; 

2004 

5 

SDATA2  = PC; 

2005 

5 

PC  = 16; 

2006 

5 

END; 

7* 

D8: 

RC  *7 

200? 

4 

DO; 

2008 

5 

IF  CY  <>  0 THEN  PC  = 

MDATA2; 

2018 

5 

END; 

7* 

D9 : 

HALT  *7 

2011 

4 

DO; 

2012 

5 

INTE  = 0FFH; 

2013 

5 

IF  HLT  AND  HOLD  THEN 

GOTO 

IEHHOLD; 

2015 

5 

IF  HLT  THEN 

GOTO 

HALT IE; 

201? 

5 

IF  HOLD  THEN 

GOTO 

IHHOLD; 

2019 

5 

IF  INT  AND  INTE  THEN 

GOTO 

I NT J AMI; 

2021 

5 

ELSE 

GOTO 

HALT I; 

2022 

5 

END; 

7* 

DA: 

JC  ADDR  *7 

2023 

4 

DO; 

2024 

5 

IF  CV  O 0 

2026 

5 

END; 

7+ 

DB: 

IN  PORT  *7 

2027 

4 

A *=  MDATA; 

7* 

DC: 

CC  ADDR  *7 

2028 

4 

DO; 

2029 

5 

IF  CV  <>  0 

2031 

6 

2032 

6 

2033 

6 

2034 

5 

THEN  PC  = ADDR; 


! 

THEN  DO; 

SDATA2  = PC; 

PC  = ADDR; 

END; 

ELSE  DO; 
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2035 

6 

IF  HLT  AND  HOLD  THEN 

GOTO 

HHOLD; 

2037 

6 

IF  HLT  THEN 

GOTO 

HALTE; 

2039 

6 

IF  HOLD  THEN 

GOTO 

HOLD; 

2041 

6 

IF  INT  AND  INTE  THEN 

GOTO 

INTJAM1; 

2043 

6 

ELSE 

GOTO 

IFCH1; 

2044 

6 

END; 

2045 

5 

END; 

/+ 

DD: 

HALT 

2046 

4 

DO; 

2047 

5 

INTE  = 0FFH; 

2048 

5 

IF  HLT  AND  HOLD  THEN  GOTO  IEHHOLD; 

2050 

5 

IF  HLT  THEN  GOTO  HALT IE; 

2052 

5 

IF  HOLD  THEN  GOTO  IHHOLD; 

2054 

5 

IF  INT  AND  INTE  THEN  GOTO  I NT J AMI; 

2056 

5 

ELSE  GOTO  HALT I; 

2057 

5 

END; 

/* 

DE: 

SB  I DATA8  */' 

2058 

4 

DO; 

2059 

5 

CALL  OFLCV<R,  DATABYTE,  CV,  SUB); 

2060 

5 

DUMMY  = A - DRTRBVTE  - <CV  AND  01H); 

2061 

5 

S = SIGN; 

2062 

5 

DUMMY  = A - DATABYTE  - <CV  AND  01H); 

2063 

5 

2 = ZERO; 

2064 

5 

A = A - DATABYTE  - <CY  AND  01H); 

2065 

5 

P = PARITY; 

2066 

5 

END; 

/* 

DF: 

RST  3 */ 

2067 

4 

DO; 

2068 

5 

SDATA2  = PC; 

2069 

5 

PC  = 24; 

2070 

5 

END; 

/+ 

E0 : 

RPO  */ 

2071 

4 

DO; 

2072 

5 

IF  P = 0 THEN  PC  = MDATA2; 

2074 

5 

END; 

/* 

El: 

POP  H */ 

2075 

4 

HL  = MDATA2; 

E2 : 

JPO  ADDR  */ 

2076 

4 

DO; 

2077 

5 

IF  P = 0 THEN  PC  = ADDR; 

2079 

5 

END; 

/* 

E3 : 

XTHL 

2080 

4 

DO; 

2081 

5 

SDATA2  = HL; 

2082 

5 

HL  = MDATA2; 

2083 

5 

END; 

/+ 

E4  : 

CPO  ADDR  */ 

2084 

4 

DO; 

2085 

5 

IF  P = 0 THEN  DO; 

61 
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2087 

6 

SDATA2  = PC; 

2088 

6 

PC  = ADDR; 

2089 

6 

END; 

2090 

5 

ELSE  DO; 

2091 

6 

IF  HLT  AND  HOLD 

THEN 

GOTO 

HHOLD; 

2093 

6 

IF  HLT 

THEN 

GOTO 

HALTE; 

2095 

6 

IF  HOLD 

THEN 

GOTO 

HOLD; 

2097 

6 

IF  I NT  AND  INTE 

THEN 

GOTO 

I NT  J AMI; 

2099 

6 

ELSE 

GOTO 

IFCH1; 

2100 

6 

END; 

2101  5 END; 

/*  E5 : PUSH  H */ 

2102  4 SDATR2  = HL; 


2103  4 

2104  5 

2105  5 

2106  5 

210?  5 

2103  5 

2109  5 

2110  5 

2111  5 


/*  E 6.  AN  I DATR8 
DO; 

DUMMV  = A AND  DATABVTE; 
S = SIGN; 

DUMMV  = A AND  DATABVTE; 
Z = ZERO; 

A = A AND  DATABVTE; 

P = PAR  I TV; 

CV  = 0; 

END; 


2112  4 

2113  5 

2114  5 

2115  5 


/*  E? : RST  4 */ 

DO; 

SDATA2  = PC; 
PC  = 32; 

END; 


2116  4 

211?  5 

2119  5 


E8 : RPE  */ 

DO; 

IF  P O 0 THEN  PC  = MDATA2; 
END; 


2120  4 


E9 : PCHL  */ 
PC  = HL; 


2121  4 

2122  5 

2124  5 


/*  EA:  JPE  ADDR 
DO; 

IF  P O 0 THEN  PC  = ADDR; 
END; 


2125  4 

2126  5 

212?  5 

2128  5 

2129  5 


X*  EB:  XCHG  */ 

DO; 

MDATA2  = DE; 
DE  = HL; 

HL  = MDATA2; 
END; 


2130  4 

2131  5 

2133  6 

2134  6 


/*  EC:  CPE  ADDR 
DO; 

IF  P <>  0 THEN  DO; 

SDRTR2  = PC; 
PC  = ADDR; 
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2135 

6 

END; 

2136 

5 

ELSE  DO; 

2137 

6 

IF  HLT  RND 

HOLD  THEN 

GOTO 

HHOLD; 

2139 

6 

IF  HLT 

THEN 

GOTO 

HALTE; 

2141 

6 

IF  HOLD 

THEN 

GOTO 

HOLD; 

2143 

6 

IF  I NT  AND 

INTE  THEN 

GOTO 

INTJAM1; 

2145 

6 

ELSE 

GOTO 

IFCH1; 

2146 

6 

END; 

2147 

5 

END; 

7* 

ED. 

HALT  *7 

2148 

4 

DO; 

2149 

5 

INTE  = ©FFH; 

2150 

5 

IF  HLT  AND  HOLD  THEN  GOTO 

IEHHOLD; 

2152 

5 

IF  HLT  THEN  GOTO 

HALT IE; 

2154 

5 

IF  HOLD  THEN  GOTO 

IHHOLD; 

2156 

5 

IF  I NT  AND  INTE  THEN  GOTO 

I NT J AMI; 

2158 

5 

ELSE  GOTO 

HALT  I; 

2159 

5 

END; 

7* 

EE: 

XRI  DRTA8  *7 

2160 

4 

DO; 

2161 

5 

DUMMV  = A XOR  DATRBVTE; 

2162 

5 

S = SIGN; 

2163 

5 

DUMMV  = A XOR  DATRBVTE; 

2164 

5 

2 = ZERO; 

2165 

5 

A = A XOR  DATRBVTE; 

2166 

5 

P = PAR  I TV; 

2167 

5 

CV  = 0; 

2168 

5 

END; 

7* 

EF: 

RST  5 +7 

2169 

4 

DO; 

2170 

5 

SDRTA2  = PC; 

2171 

5 

PC  = 40; 

2172 

5 

END; 

7* 

F0 : 

RP  +7 

2173 

4 

DO; 

2174 

5 

IF  S = 0 THEN  PC  = MDRTA2; 

2176 

5 

END; 

7* 

FI: 

POP  PSW  *7 

2177 

4 

DO; 

2178 

5 

A = HIGH<MDATA2>; 

2179 

5 

DUMMV  = LOW  (MDATA2); 

2180 

5 

IF  DUMMV  THEN  CV  = 

0FFH; 

2182 

5 

ELSE  CV  = 

0; 

2183 

5 

IF  SHR< DUMMV,  2)  THEN  P = 

0FFH; 

2185 

5 

ELSE  P = 

0; 

2186 

5 

IF  SHR< DUMMV,  6)  THEN  2 = 

0FFH; 

2188 

5 

ELSE  2 = 

0; 

2189 

5 

IF  SHR< DUMMV,  7)  THEN  S = 

0FFH; 

2191 

5 

ELSE  S = 

0; 

2192 

5 

END; 

7*  F2 : JP  RDDR  *7 
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2193 

4 

DO; 

2194 

5 

IF  S = 

0 THEN 

PC  = ADDR; 

2196 

5 

END; 

F3: 

DI  */ 

219? 

4 

INTE  = 

0; 

/* 

F4: 

CP  ADDR 

*/ 

2198 

4 

DO; 

2199 

5 

IF  S = 

0 THEN 

DO; 

2201 

6 

SDRTA2  = PC; 

2202 

6 

PC  = ADDR; 

2203 

6 

END; 

2204 

5 

ELSE 

DO; 

2205 

6 

IF  HLT  AND  HOLD 

THEN 

GOTO 

HHOLD; 

2207 

6 

IF  HLT 

THEN 

GOTO 

HRLTE; 

2209 

6 

IF  HOLD 

THEN 

GOTO 

HOLD; 

2211 

6 

IF  I NT  AND  INTE 

THEN 

GOTO 

I NT J AMI; 

2213 

6 

ELSE 

GOTO 

IFCH1; 

2214 

6 

END; 

2215 

5 

END; 

F5: 

PUSH  PSW  +/ 

2216 

4 

DO; 

221? 

5 

SDATAH 

= A; 

2218 

5 

SDATA 

= <CV  AND  01H>  OR 

SHL<P  PHD  01H, 2>  OR 
SHL<Z  AMD  01H, 6>  OR 
SHL<S  AND  01 H,  ?>  OR 
000000108; 


2219 


END; 


/*  F6: 

2220  4 

2221  5 

2222  5 

2223  5 

2224  5 

2225  5 

2226  5 

222?  5 

2228  5 

/*  F? : 

2229  4 

2230  5 

2231  5 

2232  5 


OR I DATAS  */ 

DO; 

DUMMV  = A OR  DATABVTE; 
S = SIGN; 

DUMMV  = A OR  DATABVTE; 
Z = ZERO; 

A = A OR  DATABVTE; 

P = PAR  I TV; 

CV  = 0; 

END; 

RST  6 */ 

DO; 

SDATA2  = PC; 

PC  = 48; 

END; 


2233  4 

2234  5 

2236  5 


223?  4 


F8 : RM  */ 

DO; 

IF  5 O 0 THEN  PC  = MDATA2; 
END; 

F9 : SPHL 

SP  = HU 
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2238  4 

2239  5 

2241  5 


/*  FA:  JM  ADDR  */ 

DO; 

IF  S O 0 THEN  PC  = ADDR; 
END; 


2242  4 


/*  FB:  El  */ 

INTE  = OFFH; 


2243  4 

2244  5 

2246  6 

2247  6 

2248  6 

2249  5 

2250  6 

2252  6 

2254  6 

2256  6 

2258  6 

2259  6 

2260  5 


/*  FC: 


CM  ADDR  *2 
DO; 


IF  S O 


END; 


0 


THEN  DO; 

5DATA2  = PC; 

PC  = ADDR; 

END; 

ELSE  DO; 

IF  HLT  AND  HOLD  THEN  GOTO  HHOLD; 

IF  HLT  THEN  GOTO  HALTE; 

IF  HOLD  THEN  GOTO  HOLD; 

IF  I NT  AND  INTE  THEN  GOTO  I NT J AMI; 

ELSE  GOTO  IFCH1; 

END; 


2261  4 

2262  5 

2263  5 

2265  5 

2267  5 

2269  5 

2271  5 

2272  5 


/*  FD:  HALT 
DO; 

INTE  = OFFH; 


IF 

HLT  AND 

HOLD 

THEN 

GOTO 

IEHHOLD; 

IF 

HLT 

THEN 

GOTO 

HALT  IE; 

IF 

HOLD 

THEN 

GOTO 

I HHOLD; 

IF 

I NT  AND 

INTE 

THEN 

GOTO 

1NTJAM1; 

ELSE 

GOTO 

HALT I; 

2273  4 

2274  5 

2275  5 

2276  5 

2277  5 

2278  5 

2279  5 

2280  5 

2281  5 


/*  FE:  CPI  DAT AS  */ 

DO; 

CALL  OFLCYCA,  DRTABVTE,  0,  SUB>; 
DUMMY  = A - DATABYTE; 

S = SIGN; 

DUMMY  = A - DATABYTE; 

2 = 2ER0; 

DUMMY  = A - DATABYTE; 

P = PARITY; 

END; 


2282  4 

2283  5 

2284  5 

2285  5 


/*  FF:  RST  7 */ 

DO; 

SDATA2  = PC; 
PC  = 56; 

END; 


2286  4 


END;  /*  OF  DO  CASE  */ 


2287  3 DO  CASE  SHR < TBL < OPCODE > AND  06H,  1); 


2288 

4 

DO; 

2289 

5 

IF 

2291 

5 

IF 

2293 

5 

IF 

/*  ST  = 00  */ 

HLT  AND  HOLD  THEN  GOTO  HHOLD; 

HLT  THEN  GOTO  HALTE; 

HOLD  THEN  GOTO  H0LD; 
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2295 

5 

IP  INT  AND  INTE 

THEN 

GOTO  INTJRM1; 

2297 

5 

ELSE 

GOTO  IFCH1; 

2298 

5 

END; 

2299 

4 

GOTO  ST0RE1; 

/*  ST  = 01 

*/ 

2308 

4 

GOTO  PUSH1; 

/*  ST  = 10 

+/ 

2381 

4 

GOTO  0UTPUT1; 

/*  ST  = 11 

*/ 

2302 

4 

END; 

2303 

3 

END; 
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♦EJECT 

/******* *****/ 
/*  STORE1  */ 


2304  2 

2305  3 

230?  3 

2309  3 

2311  3 

2313  3 

2315  3 

2316  3 

2317  3 

2318  3 

2319  3 

2320  3 

2321  3 

2322  3 


ST0RE1 : DO; 

IF  OPCODE  = 02H  THEN  CALL  MOVE <2,  . BC,  . V>; 

IF  OPCODE  = 12H  THEN  CALL  MOVE <2,  . DE,  . V>; 

IF  OPCODE  = 22H  THEN  CALL  MOVE <2,  . ADDR,  . V>; 

IF  OPCODE  = 32H  THEN  CALL  MOVE <2,  . ADDR,  . V); 

IF  < OPCODE  AND  OCFH>  <>  02H  THEN  CALL  MOVE <2,  . HL,  . V); 
V<2>  = SDATA; 

CALL  SETBIT R.  V,  26,  1,  INTE); 

CALL  SETBIT <.  V,  27,  1,  0B>; 

CALL  SETBIT R.  V,  29,  1,  0B>; 

CALL  SETBIT R.  V,  31,  1,  OB); 

CALL  SETBIT <.  V,  33,  1,  OFL>; 

CALL  SETBITR.  V,  34,  6,  00O001B); 

DEF  = OLDDEF  AND  OFFEFH  OR  00G3H; 


2323  3 

2324  3 

2325  3 

2326  3 


CALL  ALPHA R BO,  6,  . V>; 
CALL  SCHEDULERS); 

CALL  MEMWRMADDR,  SDATA); 
CALL  PRINT; 


232?  3 

2329  3 

2331  3 

2333  3 

2335  3 

2337  3 

2339  3 

2340  3 


IF  RESIN  THEN  GOTO  RESET; 


IF  RTBLR OPCODES-  AND  01H)  = 01H  THEN  GOTO  ST0RE2; 
IF  HLT  AND  HOLD  THEN  GOTO  HHOLD; 

IF  HLT  THEN  GOTO  HALTE; 

IF  HOLD  THEN  GOTO  HOLD; 

IF  INT  AND  INTE  THEN  GOTO  I NT J AMI; 

ELSE  GOTO  IFCH1; 


END; 


-278- 


F/G  9/2 


RADIATION  HARDENED  MICROPROCESSOR.  VOLUME  II. (U) 

MAY  78  V V NICKEL.  P A ROSENBERG  F33615-77-C-1001 

UNCLASSIFIED  AFAL-TR-78-55-V0L-2  NL 


PL/M-80  COMPILER  Q-80  SIMULATOR 


PAGE  68 


2341  2 

2342  3 

2343  3 

2344  3 

2345  3 

2346  3 

234?  3 

2348  3 

2349  3 

2350  3 

2351  3 

2352  3 

2353  3 

2354  3 

2355  3 


♦EJECT 


ST0RE2 : DO; 

V<0> 


/♦*#**##***♦*/ 
ST0RE2  */ 
/************/ 


V<0>  = LOW  <MADDR+1>; 

V<1>  = H I GH  < MRDDR+1 ) ; 

V<2>  «=  H I GH  < SDRTA2 > ; 

CALL  SETBIK.  V,  26. 1.  INTE); 

CALL  SETBIK.  V,  2?.  1.  OB>; 

CALL  SETBIK.  V,  29. 1.  0B>; 

CALL  SETBIK.  V,  31. 1.  OB); 

CALL  SETBIK.  V.  33. 1.  OFL); 

CALL  SETBIK.  V.  34.  6,  O00001B); 

DEF  * OLDDEF; 

CALL  ALPHA < BO.  6,  . V); 

CALL  SCHEDULE  < 9 ) ; 

CALL  MEMW  < MADDR+1.  H I GH  < SDATA2 > > ; 
CALL  PRINT; 


IF  RESIN 


THEN  GOTO  RESET; 


IF  HLT  AND  HOLD  THEN  GOTO  HHOLD; 

IF  HLT  THEN  GOTO  HALTE; 

IF  HOLD  THEN  GOTO  HOLD; 

IF  I NT  AND  INTE  THEN  GOTO  INTJAM1; 

ELSE  GOTO  IFCH1; 
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♦EJECT 

/***********/ 
/*  PUSH1  +/ 
/******+****/ 


2368 

2 

PUSH1 : 

DO; 

2369 

3 

SP  = 

SP  - 1; 

2370 

3 

VC0> 

= LOW  <SP>; 

2371 

3 

V<1> 

= HIGHCSP); 

2372 

3 

VC2) 

= HIGHCSDATA2); 

2373 

3 

CALL 

SETBITC.  V,  26/ 1/  INTE); 

2374 

3 

CALL 

SETBITC.  V/  27/ 1/  0B>; 

2375 

3 

CALL 

SETBITC.  V/  29/  1,  0B>; 

2376 

3 

CALL 

SETBITC.  V,  31/ 1/  0B); 

2377 

3 

CALL 

SETBITC.  V,  33/ 1,  OFL); 

2378 

3 

CALL 

SETBITC.  V/  34/  6, 100010B>; 

2379 

3 

DEF  = OLDDEF  AND  0FFEFH  OR  0003H, 

2380 

3 

CALL 

ALPHA C BO/  6/  . V>; 

2381 

3 

CALL 

SCHEDULE C 10); 

2382 

3 

CALL 

MEMW  C SP/ H I GH  C SD AT A2 ) > ; 

2383 

3 

CALL 

PRINT; 

2384 

3 

IF  RESIN  THEN  GOTO  RESET; 

2386 

3 

ELSE  GOTO  PUSH2; 

2387 

3 

END; 
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♦EJECT 

/***********/ 
/*  PUSH2  */ 
/** ***  * ***♦*/ 


2388 

2 

PUSH2 : 

DO; 

2389 

3 

SP  = 

SP  - 1; 

2390 

3 

V<0> 

* LOW  <SP>; 

2391 

3 

V<1> 

= HIGH<SP>; 

2392 

3 

V<2> 

* SDATA; 

2393 

3 

CALL 

SETBIT <.  V,  26/ 1/ 

INTE>; 

2394 

3 

CALL 

SETBIT<.  V,  27/ 1, 

0B>; 

2395 

3 

CALL 

SETS  I T < . V,  29/ 1/ 

0B>; 

2396 

3 

CALL 

SETBIT<.  V/  31, 1, 

08  >, 

2397 

3 

CALL 

SETBIT<.  V,  33/ 1/ 

OFL>; 

2398 

3 

CALL 

SETBITC.  V,  34,  6, 

100010B); 

2399 

3 

DEF  « OLDDEF; 

2400 

3 

CALL 

ALPHA < BO,  6/ . V>; 

2401 

3 

CALL 

SCHEDULE < 11 >i 

2402 

3 

CALL 

MEMW (. SP,  SDATA), 

2403 

3 

CALL 

PRINT; 

2404 

3 

IF  RESIN  THEN 

GOTO 

RESET; 

2406 

3 

IF  HLT  AND  HOLD  THEN 

GOTO 

HHOLD; 

2408 

3 

IF  HLT  THEN 

GOTO 

HRLTE; 

2410 

3 

IF  HOLD  THEN 

GOTO 

HOLD; 

2412 

3 

IF  INT  AND  INTE  THEN 

GOTO 

INTJAM1 

2414 

3 

ELSE 

GOTO 

IFCH1; 

2415 

3 

END; 
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2416 

2417 

2418 

2419 

2420 

2421 

2422 

2423 

2424 

2425 

2426 


2 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 


♦EJECT 


OUTPUT 1 : DO; 

V<0> 


/♦♦Hu*********/ 

/*  OUTPUT  */ 

/a************/ 


2427  3 

2428  3 

2429  3 


DATABVTE; 

V<1)  = 0; 

V<2>  = SDATA; 

CALL  SETBITC.  V,  26, 1,  INTE>; 

CALL  SETBIT <.  V,  27, 1,  0B>; 

CALL  SETBITC.  V,  29, 1,  ©B>; 

CALL  SETBIT<.  V,  31, 1,0B>; 

CALL  SETBIT <.  V,  33, 1,  8B>; 

CALL  SETBITC.  V,  34,  6,  000100B); 

DEF  = OLDDEF  AND  0FFEFH  OR  00O3H; 

CALL  ALPHA < BO,  6, . V>; 

CALL  SCHEDULE C 12 >; 

CALL  PRINT; 


2430 

2432 

2434 

2436 

2438 

2440 

2441 


3 

3 

3 

3 

3 

3 

3 


IF  RESIN 


THEN  GOTO  RESET; 


IF  HLT  AND  HOLD  THEN  GOTO  HHOLD; 


IF  HLT 
IF  HOLD 


THEN  GOTO  HALTE; 
THEN  GOTO  HOLD; 


IF  INT  AND  INTE  THEN  GOTO  INTJAM1; 

ELSE  GOTO  IFCH1; 

END; 
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2442  2 

2443  3 

2444  3 

2445  3 

2446  3 


♦EJECT 


HRLTE : 


2447 

2448 

2449 

2450 


3 

3 

3 

3 


2451  3 

2452  3 

2453  3 


2454 

2456 

2458 

2460 

2462 

2464 

2465 


3 

3 

3 

3 

3 

3 

3 


/*****>t<*****/ 

/*  HRLTE  */ 

s'***********/ 

DO; 

V<2>  = LRSTMEMT  OQ80; 

CALL  SETBIT<.  V,  26/ 1/  INTE); 

CALL  SETBITC.  V/  27/  1/  0B>; 

CALL  SETBITC.  V/  29/ 1/  0B>; 

CALL  SETBITC.  V/  31/  1/  IB); 

CALL  SETBITC.  V/  33/  1/  OFL); 

CALL  SETBIT<.  V/  34/  6/  000O00B); 

DEF  = OLDDEF  AND  0FFECH; 

CALL  ALPHA C BO,  6, . V); 

CALL  SCHEDULE < 17); 

CALL  PRINT; 

IF  RESIN  THEN  GOTO  RESET; 

IF  HLT  AND  HOLD  THEN  GOTO  HHOLD; 

IF  HLT  THEN  GOTO  HALTE; 

IF  HOLD  THEN  GOTO  HOLD; 

IF  INT  AND  INTE  THEN  GOTO  INTJRM1; 

ELSE  GOTO  IFCH1; 

END; 
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♦EJECT 

/**>*<  *****>*ii*«/ 

/+  HOLD  W 

/♦■fr********/ 


2466 

2 

HOLD: 

DO; 

2467 

3 

DECLARE  OLDADDR  ADDRESS; 

2468 

3 

CALL 

MOVE  <2.. . V, . OLDADDR); 

2469 

3 

V<0> 

= 0FFH; 

2470 

3 

VCl) 

= 0FFH; 

2471 

3 

VC2) 

= 0FFH; 

2472 

3 

CALL 

SETBITC.  V,  26/ 1/  INTE); 

2473 

3 

CALL 

SETBITC.  V,  27/  1/  0B>; 

2474 

3 

CALL 

SETBITC.  V/  29/ 1/ IB); 

2475 

3 

CALL 

SETBITC.  V/  31/ 1/  0B>; 

2476 

3 

CALL 

SETBITC.  V,  33/ 1/  OFL); 

2477 

3 

CALL 

SETBITC.  V,  34/  6/  O00000B); 

2478 

3 

DEF  - OLDDEF  AND  0FFEFH  OR  0003H; 

2479 

3 

CALL 

ALPHA C BO/  6/ . V>; 

2480 

3 

CALL 

SCHEDULE  C 18  > ; 

2481 

3 

CALL 

PRINT; 

2482 

3 

CALL 

MOVE C 2/ . OLDADDR/ . V); 

2483 

3 

V<2> 

■=  LASTMEMTOQ80; 

2484 

3 

IF  RESIN  THEN  GOTO 

RESET; 

2486 

3 

IF  HLT  AND  HOLD  THEN  GOTO 

HHOLD; 

2488 

3 

IF  HOLD  THEN  GOTO 

HOLD; 

2490 

3 

IF  HLT  THEN  GOTO 

HALTE; 

2492 

3 

IF  INT  AND  INTE  THEN  GOTO 

I NT J AMI; 

2494 

3 

ELSE  GOTO 

IFCH1; 

2495 

3 

END; 

PL/M-80  COMPILER 


G-8C  SIMULATOR 


PAGE  74 


♦EJECT 

/*  HHOLD  */ 

/ *4;)+.  *:+.**.**:*>«</ 


2496 

2 

HHOLD : 

DO; 

2497 

3 

DECLARE  OLDADDR  ADDRESS; 

2498 

3 

CALL 

MOVE C2,  . V, . OLDADDR); 

2499 

3 

VC0> 

= 0FFH; 

2580 

3 

VCD 

= 0FFH; 

2501 

3 

V<2> 

= 0FFH; 

2502 

3 

CALL 

SETBITC.  V,  26,  1,  INTE); 

2503 

3 

CALL 

SETBIT C.  V,  27, 1,  0B); 

2504 

3 

CALL 

SETBITC  V,  29,  1,  IB); 

2505 

3 

CALL 

SETBITC  V,  31, 1,  IB); 

2506 

3 

CALL 

SETBITC.  V,  33, 1,  OFL); 

2507 

3 

CALL 

SETBITC.  V,  34,  6,  0G0000B); 

2508 

3 

DEF  «=  OLDDEF  AND  0FFEFH  OR  0003H; 

2509 

3 

CALL 

ALPHA C BO,  6, . V); 

2510 

3 

CALL 

SCHEDULE C 19); 

2511 

3 

CALL 

PRINT; 

2512 

3 

CALL 

MOVE C 2, . OLDADDR,  V); 

2513 

3 

V<2> 

■ LASTMEMTOQ80; 

2514 

3 

IF  RESIN  THEN  GOTO 

RESET; 

2516 

3 

IF  HLT  AND  HOLD  THEN  GOTO 

HHOLD; 

2518 

3 

IF  HLT  THEN  GOTO 

HALTE; 

2520 

3 

IF  HOLD  THEN  GOTO 

HOLD; 

2522 

3 

IF  INT  AND  INTE  THEN  GOTO 

I NT J AMI; 

2524 

3 

ELSE  GOTO 

IFCH1; 

2525 

3 

END; 
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2526 

2527 

2528 

2529 

2530 

2531 

2532 

2533 

2534 


2538 

2540 

2541 

2542 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

2551 

2552 

2553 

2554 


2 

3 

3 

3 

3 

3 

3 

3 

3 


♦EJECT 


HALTI : 


2535  3 

2536  3 

2537  3 


3 

3 

4 

5 

5 

6 
6 
6 
6 
5 
4 
4 
4 
4 
3 


/Hi**********/ 

/+  HALTI  */ 

/'•Mo*********/ 

DO; 

V<2)  = LASTMEMT0Q80; 

CALL  SETBITC.  V,  26, 1,  INTE); 

CALL  SETBITC.  V,  27, 1,  OB); 

CALL  SETBITC.  V,  29,  1,  OB), 

CALL  SETBITC.  V,  31, 1,  IB); 

CALL  SETBITC.  V,  33,  1,  OB); 

CALL  SETBITC.  V,  34,  6,  0O0000B); 

DEF  = OLDDEF  AND  0FFECH; 

CALL  ALPHA C BO,  6, . V); 

CALL  SCHEDULE C 20); 

CALL  PRINT; 

IF  RESIN  THEN  GOTO  RESET; 

DO  CASE  HLT  AND  02H  OR  HOLD  AND  01H; 
DO; 

IF  INT  AND  INTE 

THEN  GOTO  INTJAM1; 

ELSE  DO; 


/+  HH  * 00  */ 


CALL 

PAGE CLP); 

CALL 

PAGE CLP); 

CALL 

END; 

EXIT; 

END; 

GOTO 

IHHOLD; 

/* 

HH 

* 01 

GOTO 

HALT IE; 

HH 

= 10 

GOTO 

IEHHOLD; 

/* 

HH 

*=  11 

+/ 

END; 

END; 
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♦EJECT 

/*  *****>♦<*.>♦<*:>♦<*/ 
/*  HRLTIE  +/ 

/ *%  »fc  * **  ♦ * **  / 


2555 

2 

HRLTIE:  DO; 

2556 

3 

VC2> 

= LASTMEMTOQ80; 

255? 

3 

CALL 

SETBITC.  V,  26/  1/  INTE); 

2558 

3 

CALL 

SETBITC.  V/  27/ 1/  0B>; 

2559 

3 

CALL 

SETBITC.  V/  29/ 1/  0B>; 

2568 

3 

CALL 

SETBITC.  V,  31/ 1/  1B>; 

2561 

3 

CALL 

SETBITC.  V/  33/ 1/  0B>; 

2562 

3 

CALL 

SETBITC.  V/  34/  6,  000000B); 

2563 

3 

DEF  = OLDDEF  AND  0FFECH; 

2564 

3 

CALL 

ALPHA C BO/  6/  . V>; 

2565 

3 

CALL 

SCHEDULE < 21 >; 

2566 

3 

CALL 

PRINT; 

256? 

3 

IF  RESIN  THEN  GOTO  RESET; 

2569 

3 

DO  CASE  HLT  AND  02H  OR  HOLD  AND  01H; 

2578 

4 

DO; 

2571 

5 

IF  I NT  AND  INTE  7* 

HH 

= 

00 

*7 

THEN  GOTO  I NT J AMI; 

2573 

5 

ELSE  DO; 

2574 

6 

CALL  PAGE CLP); 

2575 

6 

CALL  PAGE CLP); 

2576 

6 

CALL  EXIT; 

2577 

6 

END; 

2578 

5 

END; 

2579 

4 

GOTO  IHHOLD;  7* 

HH 

= 

01 

*7 

2580 

4 

GOTO  HRLTIE;  7* 

HH 

= 

10 

*7 

2581 

4 

GOTO  IEHHOLD;  7* 

HH 

= 

11 

*7 

2582 

4 

END; 

2583 

3 

END; 

I 


T 
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♦EJECT 

/*****+***++*/ 
/*  IHHOLD  */ 


2584  2 

2585  3 

2586  3 

2587  3 

2588  3 

2588  3 

2590  3 

2591  3 

2592  3 

2593  3 

2594  3 

2595  3 

2596  3 


IHHOLD.  DO; 

DECLARE  OLDADDR  ADDRESS; 

CALL  MOVE <2,  . V,  . OLDADDR >; 

VC0)  = 0FFH; 

V<1>  = 0FFH; 

VC2)  = 0FFH; 

CALL  SETBITC.  V,  26, 1,  INTE); 

CALL  SETBITC.  V,  27, 1,  0B); 

CALL  SETBITC.  V,  29, 1,  IB); 

CALL  SETBITC.  V,  31,  1,  IB); 

CALL  SETBITC.  V,  33,  1,  OB); 

CALL  SETBITC.  V,  34,  6,  0O0000B); 

DEF  * OLDDEF  AND  8FFEFH  OR  0003H; 


| 


2597 

3 

CALL 

ALPHA C BO,  6,  . V); 

2598 

3 

CALL 

SCHEDULE C 22); 

2599 

3 

CALL 

PRINT; 

2600 

3 

CALL 

MOVE C 2,  . OLDADDR,  .V); 

2601 

3 

VC2) 

= LASTMEMTOQ80; 

2682 

3 

IF  RESIN  THEN  GOTO  RESET; 

2604 

3 

DO  CASE  HLT  AND  02H  OR  HOLD 

AND 

' 01H; 

2605 

4 

DO; 

2606 

5 

IF  I NT  AND  INTE  /* 

HH 

= 00 

*/ 

THEN  GOTO  I NT J AMI; 

2608 

5 

ELSE  DO; 

2609 

6 

CALL  PAGE CLP); 

2610 

6 

CALL  PAGE CLP); 

2611 

6 

CALL  EXIT; 

2612 

6 

END; 

2613 

5 

END; 

2614 

4 

GOTO  IHHOLD;  /* 

HH 

= 01 

*/ 

2615 

4 

GOTO  HALT IE;  /* 

HH 

= 10 

2616 

4 

GOTO  IEHHOLD;  /* 

HH 

= 11 

2617 

4 

END; 

2618 

3 

END; 

| 
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♦EJECT 

/if  if  if  >f  if  if  if  if  >f*  if  if  if/ 

/*  IEHHOLD  */ 

/ if  if  if  if  if  if  if  if  if  if  if  if  >f  / 


2619 

2 

IEHHOLD: DO; 

2628 

3 

DECLARE  OLDADDR  ADDRESS; 

2621 

3 

CALL 

MOVE  <2,  . V,  . OLDADDR>; 

2622 

3 

CALL 

SETBITC.  V,  2 6,  1,  INTE ); 

2623 

3 

CALL 

SETBITC.  V,  27, 1,  0B>; 

2624 

3 

CALL 

SETBITC  V,  29,  1, 1B>; 

2625 

3 

CALL 

SETBITC.  V,  31,  1,  IB); 

2626 

3 

CALL 

SETBITC.  V,  33,  1,  0B); 

2627 

3 

CALL 

SETBITC.  V,  34,  6,  00O00OB); 

2628 

3 

DEF  = OLDDEF  AND  0FFEFH  OR  0003H; 

2629 

3 

CALL 

ALPHA C BO,  6,  . V); 

2630 

3 

CALL 

SCHEDULE C 23); 

2631 

3 

CALL 

PRINT; 

2632 

3 

CALL 

MOVE C 2,  . OLDADDR,  .V); 

2633 

3 

VC2) 

= LASTMEMTOQ80; 

2634 

3 

IF  RESIN  THEN  GOTO  RESET; 

2636 

3 

DO  CASE  HLT  AND  02H  OR  HOLD  AND  01H; 

2637 

4 

DO; 

2638 

5 

IF  INT  AND  INTE  /*  HH  = 

00 

*/ 

THEN  GOTO  INTJAM1; 

2640 

5 

ELSE  DO; 

2641 

6 

CALL  PAGECLP); 

2642 

6 

CALL  PAGECLP); 

2643 

6 

CALL  EXIT; 

2644 

6 

END; 

2645 

5 

END; 

2646 

4 

GOTO  IHHOLD;  /*  HH  = 

01 

*/ 

2647 

4 

GOTO  HALT IE;  /*  HH  = 

10 

*/ 

2648 

4 

GOTO  IEHHOLD;  /*  HH  * 

11 

*/ 

2649 

4 

END; 

2650 

3 

END; 

I 
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♦EJECT 


/ * * * * * % >«c  ifc  Ht  * Hi*  »•*  / 

/*  INTJAM1  */ 

Hof  >*<>*<*/ 


2651  2 

2652  2 

2653  3 

2654  3 

2655  2 

2656  3 

265?  3 

2658  3 

2659  3 

2660  3 

2661  3 

2662  3 

2663  3 

2664  3 

2665  3 

2666  3 


INTJAM1.D0; 

INTE 
VCO) 
VCl) 
VC2) 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
DEF  = 


= 0i 

= LOW  CPC); 

= HIGHCPC); 

= LASTMEMTOG80; 

SETBITC.  V,  26, 1,  INTE); 
SETBITC.  V,  27,  1,  IB); 

SETBITC.  V,  29,  1,  0B); 

SETBITC.  V,  31,  1,  0B); 

SETBITC.  V,  33,  1,  OFL); 

SETBITC.  V,  24,  6,  01000OB); 

: OLDDEF  AND  0FFFDH  OR  0011H; 


CALL  ALPHA C BO,  6,  . V); 

CALL  SCHEDULE C 13); 

OPCODE,  LASTMEMTOQ80  = I NT J AMWORD  CO); 
CALL  PRINT; 

OFL  = O; 

IF  RESIN  THEN  GOTO  RESET; 

ELSE  GOTO  INTJAM2; 

END; 
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2672 

2673 

2674 

2675 

2676 

2677 

2678 

2679 


2 

3 

3 

3 

3 

3 

3 

3 


♦EJECT 


INTJAM2 : 00; 

V<2) 


/'■ii************/ 

/*  INTJAM2  */ 
/***>*<♦****  *♦*  */ 


OPCODE; 

CALL  SETBIT<.  V,  33,  1,  OFL); 
DEF  = OLDDEF; 

CALL  ALPHA <80,  6,  . V>; 

CALL  SCHEDULE < 14); 
DATABVTE,  LASTMEMTOQ80 
CALL  PRINT; 


I NT  J AMHORD < 1 ) ; 


2680  3 

2682  3 

2683  3 


IF  RESIN  THEN  GOTO  RESET; 

ELSE  GOTO  INTJAM3; 

END; 
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r 


2684  2 

2685  3 

2686  3 

2687  3 

2688  3 

2689  3 

2690  3 


2691 

2693 


3 

3 


♦EJECT 

/ifc  jfnfc  ^c>Jc  >f;  >fc  >fc  sfc  >♦«  >♦<  / 

/*  INTJAM3  */ 

/ * ♦ »*c  * * >*<  * >♦<  ♦ *•«  * ♦ * / 

INTJAM3 : DOi 

VC2)  = DATABVTE; 

DEF  = OLDDEF; 

CALL  ALPHAS BO/  6/  . V>; 

CALL  SCHEDULE < 15 >; 

ADDRH/  LASTMEMT  0080  = INTJAMW0RD<2>; 
CALL  PRINT; 

IF  RESIN  THEN  GOTO  RESET; 

DO  CASE  SHR<TBL< OPCODE > AND  30H/ 4>; 


2694 

4 

GOTO 

EXEC; 

/* 

OF  = 00  */ 

2695 

4 

GOTO 

0FCH1; 

/* 

OF  = 01  */ 

2696 

4 

GOTO 

P0P1; 

/* 

OF  = 10  */ 

2697 

4 

GOTO 

INPUT; 

/* 

OF  = 11  */ 

2698 

4 

END; 

2699 

3 

END; 

2700 

2 

END; 

/*  OF 

Q-80  SIMULATION 

BLOCK  */ 

2701 

1 

END 

QS0SIM; 

MODULE  INFORMATION: 

CODE  AREA  SIZE  * 5FABH 
VARIABLE  AREA  SIZE  = 0763H 
MAXIMUM  STACK  SIZE  = 000EH 
3500  LINES  READ 
0 PROGRAM  ERROR <S> 

END  OF  PL/M-80  COMPILATION 


24491D 

1891D 

14D 
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6.  Conclusions 


J^>The  basic  conclusion  of  this  emulation  analysis  effort  is  that  the  GPU 
and  its  supporting  devices  (GUA,  ROM  and  RAM)  constitute  a viable 
microprocessor  oit  slice  device  family.  However,  deficiencies  were  found 
in  the  GPU  and  its  family  members  that  must  be  rectified  to  ensure 
a truely  competitive  product  line  capable  ol  handling  Air  Force  require- 
ments. GPU  design  deficiencies  are  presently  being  corrected in  a reworked 
design.  More  importantly,  ^deficiencies  in  the  breadth  of  the  device 

family  were  r found  to  exist  and  recommendations  lor  additional  part  types 
for  the  family  are  proposed.  The  most  important  additional  device  type 
required  is  a microprogram  controller.  The-  recommendation  is  to  Jniild  / . ■ 
a CMOS/SOS  version  of  the  AMD  2910^  '£»  e H A,  A,* 


A parallel  effort  was  undertaken  to  define  and  then  design,  to  the 
gate  level,  a particular  computer  for  emulation  utiltzin|  the  device  family. 
This  effort  provided  a test  of  the  emulation  capabilities  of  the  device 
family.  Further  deficiencies  in  the  devices  were  found  as  a result  of  this 

effort.  The  computer  selected  for  emulation  was  the  8080..  - This  micro- 
processor lwa$  representative  of  the  higher  performance  microprocessors 
on  the  market . and,  as  such,  was  an  excellent  emulation  analysis  vehicle. 

A major  accomplishment  of  this  program  was  the  detailed  design  of  an 

8080  emulator  utilizing  the  device  family.  » The  main  conclusion  that  „ 
was  drawn  from  this  effort  is  that  the  device  family  should  be  augmented 

with  GUA  types  with  both  more  capability  (gates,  pins)  and  less  capability 

than  the  TCS-09 1 . 
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As  a supplement  (P00001),  Questron  undertook  a functional  testing  effort 

of  the  GPU  to  verify  and  validate  its  design.  Questron  conceived,  de- 
veloped and  proved  the  concept  of  low  cost  functional  testing  for  LSI 

design  verification.  This  technique  utilizes  low-cost  test  stands  designed 
specifically  to  facilitate  computer  aided  test  vector  generation  and  func- 
tional testing.  During  this  effort,  Questron  detected,  isolated  and  diag- 

nosed a total  of  seven  design  flaws  in  the  GPU.  The  GPU  is  currently 

being  reworked  to  correct  the  flaws. 


To  support  the  efforts,  previously  mentioned,  Questron  developed  significant 
support  software  capability  for  the  GPU.  Microprogram  assemblers  and  a 
simulator  package  exist. 


To  summarize,  the  major  conclusions  and  accomplishments  of  this 
program  are  as  follows: 


■ A detailed  functional  specification  of  the  GPU  device  (Section  1) 

that  will  enable  potential  users  of  the  device  to  understand  its  features 
and  also  its  nuances.  Such  a specification  did  not  previously  exist  be- 
cause of  the  newness  of  the  device.  This  functional  specification  in- 
cludes design  details,  control  techniques  and  timing  information.  The 
timing  specifications  take  the  form  of  what  data  paths  should  be 
specified  - no  timing  numbers  are  included  since  the  device  has  not 
been  characterized  by  the  manufacturer. 
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An  analysis  of  the  emulation  effectiveness  of  the  RCA  SOS 
COS/MOS  device  family  (Section  2).  This  analysis  has  resulted 
in  design  modifications  being  recommended  for  all  devices  and 
actual  changes  being  made  to  the  GPU  which  will  significantly 
enhance  its  capabilities.  In  addition,  recommendations  are  made 
for  additional  devices  for  the  parts  family  to  upgrade  the 
effectiveness  and  viability  of  the  family  in  emulating  computers 
and  meeting  Air  Force  requirements. 


Development  and  proof  of  the  concept  of  the  low-cost  functional 
testing  technique  for  LSI  design  verification  and  validation 
(Section3).  This  testing  technique  resulted  in  the  detection,  iso- 
lation and  diagnosis  of  seven  functional  design,  logic  design, 
electrical  design,  mask  layout  and  process  related  flaws.  These 
Haws  are  currently  being  ameliorated  in  a reworked  GPU  design. 


A detailed  design  of  a breadboard  8080  Emulator  was  completed 
(Section  4.)  This  design  is  in  sufficient  detail  so  that  hardware 
can  be  procured  and  a working  8080  Emulator  breadboard  fabricated. 
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